-
- ## copy the datasets from _episodes_rmd/data to _episodes/data
- rmd_data_files <- list.files(path = rmd_data, full.names = TRUE)
- dest_data_files <- file.path(dest_data, basename(rmd_data_files))
-
- if (!dir.exists(file.path(dest_data)))
- dir.create(file.path(dest_data))
-
- apply(cbind(rmd_data_files, dest_data_files), 1,
- function(x) file.copy(x[1], x[2]))