條件運行，如果一些重複存在

Question

我以這種方式命名的文件的列表：

Myexpdate1_R1.txt   
Myexpdate1_R2.txt  
Myexpdate1_R3.txt  
Myexpdate2_R1.txt  
Myexpdate2_R2.txt  
Myexpdate2_R3.txt  

如何請問R鍵只爲實驗針對三個重複提供，而不是用於運行管道其他？換句話說，如果情況是這樣的：

Myexpdate1_R2.txt  
Myexpdate1_R3.txt  
Myexpdate2_R1.txt  
Myexpdate2_R2.txt  
Myexpdate2_R3.txt  

的代碼不會爲Myexpdate1運行，因爲Myexpdate1_R1.txt不可用，但它會爲Myexpdate1_R2.txt運行，因爲所有的三個重複可用。我試圖通過將含該圖案*R[1-3].txt文件list.files()長度由3爲了運行，如果它返回一個整數，而不是否則運行，但不幸的是我由R.

感謝整數的適當識別過程中經歷的麻煩提前

Answer 1

假設你從一個文件名列表開始flist, 這應該給你一個df如果在一個實驗中錯過了「R」，則execute列設置爲0，否則爲1。例如：

flist <- c("Myexpdate1_R1.txt", "Myexpdate1_R2.txt", "Myexpdate1_R3.txt",  
      "Myexpdate2_R1.txt", "Myexpdate2_R2.txt") 

library(dplyr) 
library(stringr) 
library(tibble) 
flist <- c("Myexpdate1_R1.txt", "Myexpdate1_R2.txt", "Myexpdate1_R3.txt",  
      "Myexpdate2_R1.txt", "Myexpdate2_R2.txt") 

exec <- flist %>% 
    str_split_fixed("_",2) %>% 
    as_tibble() %>% 
    mutate(replicas = str_split_fixed(V2, ".txt",2)[,1]) %>% 
    group_by(V1) %>% 
    dplyr::summarise(execute = ifelse (n() == 3, 1, 0)) 

> exec 
# A tibble: 2 × 2 
    Experiment execute 
     <chr> <dbl> 
1 Myexpdate1  1 
2 Myexpdate2  0 

然後您可以使用exec來決定是否運行模擬。例如一個簡單的for循環：

names(exec)[1] <- "Experiment" 
for (exp in seq(along = exec$Experiment)){ 

    if (exec[exp,]$execute == 1){ 
    message("Experiment:", exec[exp,]$Experiment,"--> OK, RUN") 
    print("DOING SOMETHING") 
    } else{ 
    message("Experiment:", exec[exp,]$Experiment,"--> FAIL") 
    print("DOING NOTHING") 

    } 
} 

實驗：Myexpdate1 - >確定，RUN
「有所作爲」
實驗：Myexpdate2 - > FAIL
「無爲」