Modified as.utf8 to preserve attributes

spgarbet · Sep 13, 2021 · 8bb78da · 8bb78da
1 parent 5be7bcd
commit 8bb78da
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -1,12 +1,14 @@
 `as.utf8` <-
 function(x) {
-
   if (is.character(x)) {
-    enc2utf8(x)
+    coded <- enc2utf8(x)
+    attributes(coded) <- attributes(x)
+    coded
   } else if (is.list(x)) {
-    lapply(x, as.utf8)
+    coded <- lapply(x, as.utf8)
+    attributes(coded) <- attributes(x)
+    coded
   } else {
     x
   }
-
 }