projects/brazil/config/clean_all.R

a <- list.files(path = "config", pattern = ".rds", full.names = T)
file.remove(a)

unlink("estimation", recursive = T)


system(paste0("tar -caf ", basename(getwd()), ".tar.gz ."))
system(paste0("mv ", basename(getwd()), ".tar.gz ../"))
# file.remove(".Rhistory")
ibarraespinosa/vein documentation built on April 13, 2024, 8:51 p.m.