projects/argentina/config/r/clean_all.R

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

a <- list.files(path = "config/xlsx", 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 June 13, 2025, 2:57 p.m.