Save a lot of file excel as rda using R

Question

我有1000个文件excel，名称为" 1.xlsx" 2.xlsx" ..." 1000.xlsx"。然后，如何编写一个循环以将它们保存为" 1.rda" 2.rda" ..." 1000.rda"而无需使用此代码1000次

j1＆lt; - read.xlsx（" 1.xlsx"，1）

保存（j1，file =" j1.rda"）

非常感谢

Answer 1

此起作用吗？

library(tidyverse)
xlsx_to_rda <- function(inputname, outputname){
  save(read.xlsx(inputname,1), file = outputname)
}
walk2(paste0(1:1000, ".xlsx"),
      paste0(1:1000, ".rda"),
      xlsx_to_rda)

顺便说一句，RDS将是一种更好的文件格式，因为它仅存储一个R对象。