From b11068c6478f3d2ff235b5f30c705d38ae676992 Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Tue, 1 Nov 2016 14:40:00 -0700 Subject: [PATCH] use \t as a sep; fix system() call --- array_to_excel.R | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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) -- 2.39.2