使用R将大量文件excel保存为rda

Question

我有1000个文件excel，名称为＆＃34; 1.xlsx＆＃34; ＆＃34; 2.xlsx＆＃34; ......＆＃34; 1000.xlsx＆＃34;。然后我怎么能写一个循环来保存它们＆＃34; 1.rda＆＃34; ＆＃34; 2.rda＆＃34; ......＆＃34; 1000.rda＆＃34;不使用此代码1000次

  

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

     

保存（j1，文件=＆＃34; j1.rda＆＃34;）

非常感谢

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对象。