我有许多标有年份的.csv文件 . 即

2017TMAXMIN.csv
2016TMAXMIN.csv
2015TMAXMIN.csv
2014TMAXMIN.csv
.
.
.

等等大约40年 .

我试图根据用户输入日期读取这些.csv文件 . 例如，用户可以基于用户输入指定他们将从2016年和2017年提交文件 .

下面是我到目前为止的代码 .

setwd("P:/%%%%%%/FTP_Yearly_Climate_Data")
FromDate <- "20170115" #enter from date in YYYYMMDD format
ToDate <- "20161215" #enter to date in YYYYMMDD format
AnalysisType <- "maxtemp" #maxtemp, mintemp, precip

filename <- "TMAXMIN.csv"
FromYear <- as.numeric(substr(FromDate, 1, 4))
ToYear <- as.numeric(substr(ToDate, 1, 4))

if (FromYear != ToYear) {
  for (i in ToYear:FromYear) {
    i <- paste0(i, sub('\\..*', '', filename), '.csv')
    read.csv(i, header=TRUE, sep=",")
    print(i)
  }
}

当我运行此代码时，没有任何导入;但是，我确实得到 i 的值 2017TMAXMIN.csv . 理想情况下，我希望这两年进口 . 当 print(i) 在if / for循环中运行时，输出低于 .

[1] "2016TMAXMIN.csv"
[1] "2017TMAXMIN.csv"

我对R（一般编码）很新，所以非常感谢任何建议或帮助 . 谢谢 .

r csv for-loop read.csv