Accept "latin1" as encoding string

hsonne · hsonne · commit c1f33c5134d5 · 2024-03-26T18:54:26.000+01:00
diff --git a/R/readEuCodedFile.R b/R/readEuCodedFile.R
@@ -138,7 +138,7 @@ readFileEncodingFromHeader <- function(file)
 # stopOnInvalidEncoding --------------------------------------------------------
 stopOnInvalidEncoding <- function(encoding)
 {
-  if (!encoding %in% (available <- iconvlist())) {
+  if (!encoding %in% (available <- c("latin1", iconvlist()))) {
     stop(kwb.utils::noSuchElements(encoding, available, "encoding string"))
   }
 }

Original file line number	Diff line number	Diff line change
`@@ -138,7 +138,7 @@ readFileEncodingFromHeader <- function(file)`
`138`	`138`	`# stopOnInvalidEncoding --------------------------------------------------------`
`139`	`139`	`stopOnInvalidEncoding <- function(encoding)`
`140`	`140`	`{`
`141`		`- if (!encoding %in% (available <- iconvlist())) {`
	`141`	`+ if (!encoding %in% (available <- c("latin1", iconvlist()))) {`
`142`	`142`	`stop(kwb.utils::noSuchElements(encoding, available, "encoding string"))`
`143`	`143`	`}`
`144`	`144`	`}`