用于转换文件的循环

Question

我有很多文件要使用 R 从 sas7bdat 转换为 Rds，我正在使用以下代码：

name <- read_sas("C:/Users/Desktop/Files/name.sas7bdat")
saveRDS(name, file = "C:/Users/Desktop/RDSfiles/name.Rds")

但是有太多文件我想使用循环来优化处理，有什么想法吗？

非常感谢！！

Answer 1

这是我将使用的简单循环：

path_sas7bdat <- "C:/Users/Desktop/Files/"
path_RDS <- "C:/Users/Desktop/RDSfiles/"

files <- list.files(path_sas7bdat, pattern = "sas7bdat")

for(i in files) {
    saveRDS(read_sas(paste0(path_sas7bdat, i)),
            paste0(path_RDS, gsub("sas7bdat", "RDS", i)))
}

PS：检查saveRDS选项collapse = FALSE的速度。