use \t as a sep; fix system() call

diff --git a/array_to_excel.R b/array_to_excel.R
index b818ca05c4b2f39e41acfc1265ab713cca6f9b4f..6a052b7ad9e497123beccdc2a7d7ff757894a408 100644 (file)
--- a/array_to_excel.R
+++ b/array_to_excel.R
@@ -23,12 +23,14 @@ array_to_excel <- function(data,workbook) {
     temp.dir <- mkdtemp()
     worksheets <- NULL
     for (worksheet in names(data)) {
-        write.table(data[[file]],
-                    file=file.path(temp.dir,worksheet))
+        write.table(data[[worksheet]],
+                    file=file.path(temp.dir,worksheet),
+                    sep="\t"
+                    )
         worksheets <- c(worksheets,
                         file.path(temp.dir,worksheet))
     }
-    system("txt2xls","--output",workbook,worksheets)
+    system(paste(collapse=" ",shQuote(c("txt2xls","--output",workbook,worksheets))))
     unlink(worksheets)
     unlink(temp.dir)
     return(workbook)