r - 遇到错误时，从列表中删除文件名

Question

我有这个代码

library(plyr)
library(readxl)
library(XLConnect)

#Set the Path
layout_path <- "/rdrive/my_test/"
output_path <- "/rdrive/my_test/"

filenames <- list.files(path = layout_path , pattern="*xls", ignore.case=TRUE)
filecount <- length(list.files(path = layout_path, pattern="*xls", ignore.case=TRUE))

err_fs =
  for (f in filenames) {
    tryCatch(
      {
      nverr <- read_excel(paste(layout_path,f,sep=''), sheet = 1, col_names = FALSE, range = cell_cols("A:A"))
      },
      error=function(err) {
        filenames[names(filenames) != f]    
        cat("File doesn't appear to open:", f, conditionMessage(err), "\n")
      })
  }

尽管其他所有内容似乎都正常运行，但filenames [names(filenames)!= f]无法从列表“filenames”中删除错误的文件名。
我什至尝试了数字方法，但总的来说..可能是因为它在错误函数中吗？
如果您能提出建议，请多加赞赏。

Answer 1

您可以创建一个 vector 来存储结果，如果文件正确读取，则将其转换为"success"，如果出现错误，它将保持空白。

file_read <- character(length(filenames))

for (i in seq_along(filenames)) {
  tryCatch(
    {
      nverr <- read_excel(paste(layout_path,filenames[i],sep=''), sheet = 1, col_names = FALSE, range = cell_cols("A:A"))
      file_read[i] <- 'success'
    },
    error=function(err) {
      cat("File doesn't appear to open:", f, conditionMessage(err), "\n")
    })
}

然后，您可以删除不成功的文件。

newfilenames <- filenames[file_read != 'success']