Пишите только файлы с истиной, R - PullRequest
Новая
       13

Пишите только файлы с истиной, R

0 голосов
/ 21 ноября 2018

Следующий код ищет в файле Excel ключевое слово (в данном случае paludisme) и записывает новый файл с истиной или ложью в конце.Однако меня интересуют только те, которые оканчиваются на истину.Как мне остановить запись файлов R, которые имеют ложное значение, и записать только те файлы (заканчивающиеся в true), которые имеют ключевое слово? 

isWordInTibble <- function(word, tibble) {
 any(unlist(
sapply(1:ncol(tibble), 
       function(i) word %in% as.character(unlist(tibble[, i])))))
}

for(excelsheet in files){
      for (sheet in sheet_to_read) {
        temp <- read_excel( path = excelsheet, sheet = sheet, col_names = FALSE)
        write.csv( temp, file = gsub(".xlsx", 
                                     paste0(substr(temp[-1, 1], 
                                                   1,
                                                   1), 
                                            gsub("sheet", "", sheet), 
                                            substr(tolower(as.character(isWordInTibble("paludisme", temp))), 
                                                   1,
                                                   5),
                                            ".csv"), 
                                     excelsheet)) } }
...