library(foreign) system("rm -rf sas/*sas* stata/*dta*") ext <- ".csv.gz" for (fnm in Sys.glob(paste0("*",ext))) { message(fnm) d <- iaw$read.csv.gz(fnm) sasname.asc <- sub(ext, ".data4sas", fnm) sasname.cde <- sub(ext, ".sas", fnm) message("writing to sas/", sasname.asc, " and sas/", sasname.cde) write.foreign(d, paste0("sas/",sasname.asc), codefile=paste0("sas/",sasname.cde), package="SAS") system(paste0("gzip sas/", sasname.asc)) system(paste0("echo \"\n* ** ** ** You must first decompress the ", sasname.asc, ".gz (gzip) file back into its uncompressed form\n\" >> sas/", sasname.cde)) message("sas done") stataname <- sub(ext, ".dta", fnm) message("writing to stata/", stataname) write.dta(d, paste0("stata/", stataname)) system(paste0("gzip stata/", stataname)) message("stata done") }