Export dataframe/datatable groups to individual excel files

slice_export.r

library(data.table)

data <- rio::import("compensation1.xls")
data <- janitor::clean_names(data)
colnames(data)
filename <- tools::file_path_sans_ext(file) #get filename sans extension or path
getwd()

slicer <- c("manager_first_name")
prefix <- c("") #end with _
suffix <- c("") #start with _

setDT(data) # convert the data into a data.table
data[, rio::export(.SD, paste0(filename, "_", prefix, .BY, suffix, ".xlsx")), by = slicer]