Accept "latin1" as encoding string

KWB-R · Mar 26, 2024 · c1f33c5 · c1f33c5
1 parent 6b4575c
commit c1f33c5
Showing 1 changed file with 1 addition and 1 deletion.
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"))
   }
 }