在R中使用file.copy-如果失败则捕获

Question

我有以下代码：

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向量，该向量对应于成功复制或失败的文件。我想检查一下是否全部为TRUE或某处是否为FALSE。有谁知道我该怎么办而无需运行file.copy两次？

例如，我可以添加一个if语句来查看sum（file.copy（..））== 0，但这需要运行两次file.copy。