r 将数据写入Excel工作表（openxlsx）

Posted 2021-05-23

write_to_ws <- function(data, workbook, worksheet){
  if (worksheet %in% names(workbook)) {
  writeData(workbook, worksheet, data)
  }
  else{
  addWorksheet(workbook, worksheet)
  writeData(workbook, worksheet, data)
  }
}

## Accompanying functions
#library(openxlsx)
#wb <- createWorkbook()
#saveWorkbook(wb,filename,overwrite=TRUE)