Export data to a list as sheets in an Excel file

Question

It should be a simple task, but I still can not find it.

Sample data:

var1 <- list('2003' = 1:3, '2004' = c(4:3), '2005' = c(6,4,1), '2006' = 1:4 )

Bad code:

library("XLConnect")
wb <- loadWorkbook("var1.xlsx", create = TRUE)
wb <- lapply(var1, function(x) {createSheet(wb, name = x)})
saveWorkbook(wb)

+2

dmvianna Sep 04 '12 at 6:25

1 answer

themel · Accepted Answer · 2012-09-04T06:59:43+0000

A more concise @Andrie answer, as the XLConnect API is vectorized:

wb <- loadWorkbook("var1.xlsx", create = TRUE)
createSheet(wb, names(var1))
writeWorksheet(wb, var1, names(var1),header=FALSE)
saveWorkbook(wb)