directory <- "data"
if (!dir.exists(directory)) {
dir.create(directory)
}
has_dir <- dir.exists(directory)
# has_dir = TRUE
# Missing parents need recursive = TRUE
nested <- dir.create("data/2027/01",
recursive = TRUE)
# nested = TRUE
cat("has_dir =", has_dir, "\n")
cat("nested =", nested, "\n")