# NOT RUN {
# create temporary directory
tmpdir <- tempdir()
fs::dir_create(paste0(tmpdir,"/data/"))
# load sample files into temporary directory
cs_example(path = paste0(tmpdir,"/data/"))
# list files
list.files(paste0(tmpdir,"/data/"))
# prep sample files
cs_prep_year(path = paste0(tmpdir,"/data/"))
# list files again
list.files(paste0(tmpdir,"/data/"))
# delete data
fs::dir_delete(paste0(tmpdir,"/data/"))
# create temporary directory
fs::dir_create(paste0(tmpdir,"/data/"))
# load sample files into temporary directory
cs_example(path = paste0(tmpdir,"/data/"))
# prep sample files
cs_prep_year(path = paste0(tmpdir,"/data/"), verbose = TRUE)
# delete data again
fs::dir_delete(paste0(tmpdir,"/data/"))
# }
Run the code above in your browser using DataLab