don't enforce iconvlist()ed encoding

tidyverse · Apr 11, 2024 · 973dde5 · 973dde5
1 parent e529cb2
commit 973dde5
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/locale.R b/R/locale.R
@@ -129,9 +129,11 @@ check_tz <- function(x) {
 check_encoding <- function(x) {
   check_string(x, nm = "encoding")
 
-  if (tolower(x) %in% tolower(iconvlist())) {
+  ## iconvlist() is not complete on all platforms,
+  ## but encodings "latin1" and "UTF-8" are portable.
+  if (tolower(x) %in% tolower(c("latin1", "UTF-8", iconvlist()))) {
     return(TRUE)
   }
 
-  stop("Unknown encoding ", x, call. = FALSE)
+  warning("Unknown encoding ", x, call. = FALSE)
 }