Potential fix for test_utf8 not working on some data frames

karthik · May 19, 2014 · 5f4b217 · 5f4b217
1 parent d41c04e
commit 5f4b217
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/R/test_utf8.R b/R/test_utf8.R
@@ -17,7 +17,7 @@ test_utf8 <- function(dat, verbose = F) {
     }
     if(verbose) message(sprintf("Now checking %s columns...", ncol(dat)))
     # Testing for UTF-8 in any columns
-    ut8 <- suppressWarnings(apply(dat, 2, non_ascii))
+    ut8 <- simplify2array(lapply(colnames(dat),non_ascii))
     if(any(ut8) == TRUE) {
         if(verbose) {
         message("UTF-8 characters detected in columns ")

diff --git a/inst/extdata/minimal.csv b/inst/extdata/minimal.csv
@@ -0,0 +1,3 @@
+"id","col1","col2","col3","col1"
+1,2,3,4,5
+2,4,5,1,2