fixed for windows freq()

qinwf · Sep 27, 2015 · a825ff5 · a825ff5
1 parent 3cdc8f6
commit a825ff5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/words_freq.R b/R/words_freq.R
@@ -10,7 +10,7 @@ freq <- function(x){
   if("character" %in% class(x) != TRUE){
     stop("Please give me a character vector.")
   }
-  if(Encoding(x)=="unknown" && .Platform$OS.type=="windows"){
+  if(.Platform$OS.type=="windows"){
     x=enc2utf8(x)
   }