如何使用 read.csv 忽略具有特定名称的文件答案

【问题标题】：How to ignore files with a specific name using read.csv如何使用 read.csv 忽略具有特定名称的文件
【发布时间】：2021-12-01 02:28:06
【问题描述】：

我目前有这段代码可以读取目录中的所有 .cvs 文件：

test <- NULL

for (f in dir("/Users/jackdavis/Desktop/Results/", pattern=".csv", recursive=T)) {
  print(f)
  tmp <- read.csv(paste("/Users/jackdavis/Desktop/Results/",f,sep=""))
  test1 <- rbind(test,data.frame(ID=f,
                            Date=tmp$TEST_DATE,
                            Time=tmp$TEST_TIME,
                            Machine=tmp$DEVICE,
                            Op=tmp$OPERATOR,
                            PTC=pcq$SAMPLECODE
  ))
}

它读取的文件采用这种文件名格式（“FMQ_Results_TB_1051-1080_1633016575.csv”）。但我希望它忽略带有“重新运行”的文件名（例如“FMQ_Results_TB_1051-1080_rerun_1633016575.csv”） - 如何修改代码来执行此操作？

【问题讨论】：

标签： r csv read.csv

【解决方案1】：

一个可能的解决方案：

library(stringr)

p <-  dir("/Users/jackdavis/Desktop/Results/", pattern=".csv", recursive=T)
idx <- str_detect(p,"rerun")
p <- p[-idx]

test <- NULL

for (f in p) {
  print(f)
  tmp <- read.csv(paste("/Users/jackdavis/Desktop/Results/",f,sep=""))
  test1 <- rbind(test,data.frame(ID=f,
                            Date=tmp$TEST_DATE,
                            Time=tmp$TEST_TIME,
                            Machine=tmp$DEVICE,
                            Op=tmp$OPERATOR,
                            PTC=pcq$SAMPLECODE
  ))
}

【讨论】：