提取日期，文件名，循环

Question

我在R中的循环有点问题。我的想法是我有来自queryCM_20131215.LST的1000个文件，queryCM_20131216.LST，... 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")