From 5f4b2174ad9f42539a9f1099ae471af6334b3ec8 Mon Sep 17 00:00:00 2001
From: Christopher Beckham <chrispy645@gmail.com>
Date: Mon, 19 May 2014 15:44:54 +1200
Subject: [PATCH] Potential fix for test_utf8 not working on some data frames

---
 R/test_utf8.R            | 2 +-
 inst/extdata/minimal.csv | 3 +++
 2 files changed, 4 insertions(+), 1 deletion(-)
 create mode 100755 inst/extdata/minimal.csv

diff --git a/R/test_utf8.R b/R/test_utf8.R
index ed4d4e0..69dbd28 100644
--- 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
new file mode 100755
index 0000000..9d70ea0
--- /dev/null
+++ b/inst/extdata/minimal.csv
@@ -0,0 +1,3 @@
+"id","col1","col2","col3","col1"
+1,2,3,4,5
+2,4,5,1,2