inst/tests/zip_pithy/test-01.R

fp <- paste(getwd(),"zip_pithy/mtcars.csv",sep = "/")

zip_fp <- paste(getwd(),"zip_pithy/mtcars.zip",sep = "/")

write.csv(mtcars, fp)

zip_pithy(zipfile = zip_fp,files = fp)

lapply(list(fp, zip_fp),file.remove)
tiernanmartin/miscgis documentation built on May 31, 2019, 1:19 p.m.