From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 1 Nov 2016 21:40:00 +0000 (-0700)
Subject: use \t as a sep; fix system() call
X-Git-Url: https://git.donarmstrong.com/?p=r%2Fcommon_r_code.git;a=commitdiff_plain;h=b11068c6478f3d2ff235b5f30c705d38ae676992

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

diff --git a/array_to_excel.R b/array_to_excel.R
index b818ca0..6a052b7 100644
--- 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)