R - 加载特定日期的数据

Answer 1

从遵循"SD07_TWK_20190822_003004" 模式的文件名开始，您可以将日期提取为字符 10 到 17：

> substr("SD07_TWK_20190822_003004", 10, 17)
[1] "20190822"

现在这是一个字符串。但是当某个聪明的人以合理的顺序排列年、月和日期时，您可以比较这些字符串，就好像它们是日期一样：

example <- substr("SD07_TWK_20190822_003004", 10, 17)
date_start = "20190822"
date_end = "20190823"

example >= date_start
example < date_end

现在，如果您想查看日期是否在date_start 和date_end 之间，则类似于

> date_start <= example & example <= date_end
[1] TRUE

让我们尝试提前一个月和一年后的日期，看看我们是否得到了想要的FALSE：

> example = "20190722"
> date_start <= example & example <= date_end
[1] FALSE
> example = "20200822"
> date_start <= example & example <= date_end
[1] FALSE

太好了，现在您所要做的就是使用 if 语句在循环中设置 assign 条件，类似于以下内容

if( (start_date <= substr(filepath, 10, 17))  &  
    (substr(filepath, 10, 17) <= end_date  ) ){
        assign(....)
}

如果不提供重新考虑的建议，我无法关闭assign 是否是一个不错的选择。您可能应该将那些 data.frames 存储在一个列表中，但这不是这个问题的主题。