Merge pull request #424 from yihui/bugfix/yaml-attributes

preserve the attributes of lists while marking characters as UTF-8
rstudio · Apr 30, 2015 · 0449453 · 0449453
2 parents 47b0094 + e49745c
commit 0449453
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/R/util.R b/R/util.R
@@ -73,9 +73,11 @@ mark_utf8 <- function(x) {
     Encoding(x) <- 'UTF-8'
     return(x)
   }
-  if (is.list(x)) {
-    lapply(x, mark_utf8)
-  } else x
+  if (!is.list(x)) return(x)
+  attrs <- attributes(x)
+  res <- lapply(x, mark_utf8)
+  attributes(res) <- attrs
+  res
 }
 
 # TODO: remove this when fixed upstream https://github.com/viking/r-yaml/issues/6