时间戳

首页 > 解决方案 > 遇到错误时从列表中删除文件名

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

问题描述

我有这个代码

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] 无法从列表“文件名”中删除错误的文件名。我什至尝试了数字方法，但一切都在脉络中..可能是因为它在错误函数中吗？

感谢您是否可以建议出路。

标签： rerror-handlingtry-catch

解决方案

您可以创建一个向量来存储结果并"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']

推荐阅读