名前が日付の csv ファイルを for ループに読み込んで、実際にそこにあるときにそのファイルからいくつかの列のデータを出力しようとしています。データがない日付と実際には存在しない日付をスキップする必要があります。コードを入力しても出力はなく、空白です。コードが機能しないのはなぜですか?
options(width=10000)
options(warn=2)
for(a in 3:5){
for(b in 0:1){
for(c in 0:9){
for(d in 0:3){
for(e in 0:9){
mydata=try(read.csv(paste("201",a,b,c,d,e,".csv",sep="")), silent=TRUE)
if(class(mydata)=="try-error"){next}
else{
mydata$Data <- do.call(paste, c(mydata[c("LAST_UPDATE_DT","px_last")], sep=""))
print(t(mydata[,c('X','Data')]))
}
}}}}}