R/data2excel.R

In liuguofang/figsci: Let plotting figure and scientific visualization and information gain easier and more efficient.

data2excel <- function(dat, filename, sheetname, create =TRUE, ...) {
	library(XLConnect)
	wb  <-  loadWorkbook(filename,  create  =  create)
	createSheet(wb,  name  =  sheetname)
	writeWorksheet(wb,  dat,  sheet  =  sheetname, ...)
	saveWorkbook(wb)
}