Fixed tagger

qinwf · Nov 6, 2014 · 8e1f891 · 8e1f891
1 parent 295de8b
commit 8e1f891
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/tagger.R b/R/tagger.R
@@ -67,11 +67,11 @@ tagl <- function(code, jiebar, symbol, lines, output, encoding, write_file,FILES
           }
           out.lines <- tagw(code = tmp.lines, jiebar = jiebar, 
                             symbol = symbol, FILESMODE = FILESMODE)
-
+          out.lines<-gsub("\\s x\\s","",paste(out.lines, collapse = " "))
           if (.Platform$OS.type == "windows") {
-            writeBin(charToRaw(paste(out.lines, collapse = " ")), output.w)
+            writeBin(charToRaw(out.lines), output.w)
           } else {
-            writeLines(paste(out.lines, collapse = " "), output.w)
+            writeLines(out.lines, output.w)
           }
 
         }