read_nircal() fails when IDs contain special characteres

[l-ramirez-lopez]

The read_nircal() fails if the ID column in the .nitr file contains some special characters e.g. L61225_Aldi Süd_02.11.06_ARPA_0001_0002

[l-ramirez-lopez]

Solution:

in get_nircal_ids() replace:

  ids <- strsplit(ids, "\n", useBytes = TRUE)[[1]]
  # ids <- iconv(ids, to = "UTF-8", sub = NA)
  ids <- enc2utf8(ids)
  ids <- ids[-c(1, length(ids))]
  ids <- substr(x = ids, start = regexpr("/", ids) + 1, stop = 100000)

by

  ids <- enc2utf8(ids)
  ids <- strsplit(ids, "\n", useBytes = TRUE)[[1]]
  # ids <- iconv(ids, to = "UTF-8", sub = NA)
  ids2 <- ids[-c(1, length(ids))]
  ids <- try(substr(x = ids2, start = regexpr("/", ids) + 1, stop = 100000))
  if (inherits(ids, "try-error")) {
    ids <- iconv(ids2, from = "Latin1", to = "UTF-8")
  }

[l-ramirez-lopez]

fixed