wb <- wb_workbook()
wb$add_worksheet("Sheet 1")
wb$add_worksheet("Sheet 2")
wb$add_worksheet("Sheet 3")
wb$add_data(1, iris)
wb$add_filter(1, row = 1, cols = seq_along(iris))
## Equivalently
wb$add_data(2, x = iris, withFilter = TRUE)
## Similarly
wb$add_data_table(3, iris)
wb <- wb_workbook()
wb$add_worksheet("Sheet 1")
wb$add_worksheet("Sheet 2")
wb$add_worksheet("Sheet 3")
wb$add_data(1, iris)
wb_add_filter(wb, 1, row = 1, cols = seq_along(iris))
## Equivalently
wb$add_data(2, x = iris, withFilter = TRUE)
## Similarly
wb$add_data_table(3, iris)
## remove filters
wb_remove_filter(wb, 1:2) ## remove filters
wb_remove_filter(wb, 3) ## Does not affect tables!
Run the code above in your browser using DataLab