demo/functions/survey.r

In reinholdsson/FileServer: R File Service

function(input, output) {
  require(XLConnect)
  wb <- loadWorkbook(output, create = TRUE)
  createSheet(wb, name = "output")
  writeWorksheet(wb, MASS::survey, sheet = "output")
  saveWorkbook(wb)
}