r语言 - 提取日期、文件名、循环

Question

我在R中的循环有点问题。这个想法是我有来自 queryCM_20131215.LST、queryCM_20131216.LST 的 1000 个文件......queryCM_20170118.LST ;我想提取每个文件的日期。但我的结果只给了我最后一个。有没有出路？这是我的代码：

listLST <- dir(path = "C:/Users/BQKJ3140/Desktop/DOCS/base/histo/",pattern = "*.LST")
for (k in 1:length(listLST)){ 
file_name[[k]] <- listLST[[k]]

file_date[[k]]<- as.Date(strsplit(file_name[[k]],"_")[[1]][2], "%Y%m%d") }

Answer 1

你也可以这样做。

listLST <- dir(path = "C:/Users/BQKJ3140/Desktop/DOCS/base/histo/",pattern = "*.LST")
readDate <- sapply(strsplit(listLST,"[_.]"),function(x){x[2]})
readDate <- as.Date(readDate,"%Y%m%d")