## Not run:
# xls = xl.get.excel()
# xl.workbook.add()
# rng = xls[["Activesheet"]]$Cells(1,1)
# nxt = xl.write(iris,rng,row.names = TRUE,col.names = TRUE)
# rng = rng$Offset(nxt[1] + 1,0)
# nxt = xl.write(cars,rng,row.names = TRUE,col.names = TRUE)
# rng = rng$Offset(nxt[1] + 1,0)
# nxt = xl.write(as.data.frame(Titanic),rng,row.names = TRUE,col.names = TRUE)
#
# data(iris)
# data(cars)
# data(Titanic)
# xl.sheet.add()
# rng = xls[["Activesheet"]]$Cells(1,1)
# data.sets = list("Iris dataset",iris,
# "Cars dataset",cars,
# "Titanic dataset",as.data.frame(Titanic))
# xl.write(data.sets,rng,row.names = TRUE,col.names = TRUE)
#
# ## End(Not run)
Run the code above in your browser using DataLab