我正在寻找一种自动更新文件名的方法。该代码将用于每年下载几个.csv文件。我希望能够将名称的2020_2021
部分更改为脚本开头的任何评估年份(即2021_2022, 2022_2023
等),因此文件名不必手动更新。
write.csv(SJRML_00010,
file = "SJRML__00010_2020_2021.csv")
write.csv(SJRML_00095,
file = "SJRML_00095_2020_2021.csv")
write.csv(SJRML_00480,
file = "SJRML_00480_2020_2021.csv")
lastyear <- 2020
prevassessment <- sprintf("%i_%i", lastyear, lastyear+1)
nextassessment <- sprintf("%i_%i", lastyear+1, lastyear+2)
prevassessment
# [1] "2020_2021"
filenames <- c("SJRML__00010_2020_2021.csv", "SJRML_00095_2020_2021.csv")
gsub(prevassessment, nextassessment, filenames, fixed = TRUE)
# [1] "SJRML__00010_2021_2022.csv" "SJRML_00095_2021_2022.csv"
你可以在一个文件名向量上或一次一个上执行gsub
,无论你是如何实现你的处理。
创建一个名称可以更新的。csv文件Year <- "_2020"
然后write.csv(file_name, paste0("file_name", Year,".csv"))
返回file_name_2020.csv