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

Question

I have 1000 file excel with the name "1.xlsx" "2.xlsx" ... "1000.xlsx". Then how can i write a loop to save them as "1.rda" "2.rda" ... "1000.rda" without using this code 1000 times

j1 <- read.xlsx("1.xlsx",1)

save(j1, file = "j1.rda")

Thanks a lot

Answer 1

Does this work?

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)

By the way rds would be a better file format, because it stores just one r object.