file_name <- "file.txt"
writeLines("Line 1", file_name)
has_file <- file.exists(file_name)
# has_file = TRUE
has_missing <- file.exists("missing.txt")
# has_missing = FALSE
# One call checks many names
has_files <- file.exists(c(file_name,
"missing.txt"))
# has_files = TRUE FALSE
cat("has_file =", has_file, "\n")
cat("has_missing =", has_missing, "\n")
cat("has_files =", has_files, "\n")