У меня есть следующий код:
save_loc <- "C:/Save Loc"
loc1 <- 'Z:/loc1'
loc2 <- 'Z:/loc2'
#LOOP EACH LOC AND COPY FILES
for (db in c(loc1,loc2)){
file_list <- list.files(db)
file.copy(file.path(db,file_list),save_loc,recursive = TRUE,overwrite = FALSE,copy.date = TRUE)
}
Я хочу иметь возможность записи, если не удается скопировать определенный файл. Если я сам запускаю file.copy, он возвращает вектор TRUE / FALSE, который соответствует тому, какой файл был успешно скопирован или потерпел неудачу. Я хочу сделать проверку, чтобы увидеть, все ли это ИСТИНА или где-то было ЛОЖЬ. Кто-нибудь знает, как я могу сделать это без запуска file.copy дважды?
Например, я мог бы добавить оператор if, чтобы увидеть, если sum (file.copy (..)) == 0, но для этого потребуется дважды запустить file.copy.