# NOT RUN {
library('datasets')
export(list(mtcars1 = mtcars[1:10,],
mtcars2 = mtcars[11:20,],
mtcars3 = mtcars[21:32,]), "mtcars.xlsx")
# import all worksheets
mylist <- import_list("mtcars.xlsx")
# re-export as separate named files
export_list(mylist, file = paste0("mtcars", 1:3, ".csv"))
# re-export as separate files using a name pattern
export_list(mylist, file = "%s.csv")
# cleanup
unlink("mtcars.xlsx")
unlink("mtcars1.csv")
unlink("mtcars2.csv")
unlink("mtcars3.csv")
# }
Run the code above in your browser using DataCamp Workspace