FILES <- tempfile(c("existent-file_", "non-existent-file_"))
writeLines("line1\nline2", FILES[[1L]])
for (FILE in FILES) {
con <- file(FILE)
tryCatch2({
open(con, "r")
}, condition = function(cond) {
cat("cannot open", FILE, "\n")
}, else. = {
cat(FILE, "has", length(readLines(con)), "lines\n")
}, finally = {
close(con)
})
}
unlink(FILES)
Run the code above in your browser using DataLab