## write some data
wb <- createWorkbook()
addWorksheet(wb, "tester")
for (i in seq(5)) {
mat <- data.frame(x = rep(paste0(int2col(i), i), 10))
writeData(wb, sheet = 1, startRow = 1, startCol = i, mat)
writeFormula(wb, sheet = 1, startRow = 12, startCol = i,
x = sprintf("=COUNTA(%s2:%s11)", int2col(i), int2col(i)))
}
deleteDataColumn(wb, 1, col = 3)
if (FALSE) {
saveWorkbook(wb, "deleteDataColumnExample.xlsx", overwrite = TRUE)
}
Run the code above in your browser using DataLab