1 ### this requires txt2xls, which you can find here:
2 ### http://git.donarmstrong.com/bin.git/b/txt2xls
4 mkdtemp <- function() {
6 while (max.tries > 0) {
7 tmpnam <- tempfile("dir")
8 if (dir.create(tmpnam)) {
11 max.tries <- max.tries - 1
16 array_to_excel <- function(data,workbook) {
17 if (is.data.frame(data) || is.data.frame(data)) {
25 for (worksheet in names(data)) {
26 write.table(data[[worksheet]],
27 file=file.path(temp.dir,worksheet),
30 worksheets <- c(worksheets,
31 file.path(temp.dir,worksheet))
33 system(paste(collapse=" ",shQuote(c("txt2xls","--output",workbook,worksheets))))