如何通过if for语句读入R中的多个.csv文件？

Question

我有许多标有年份的.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（一般编码）很新，所以非常感谢任何建议或帮助。谢谢。