Fix empty dir logic

Author: cderv

R/use.R

@@ -36,6 +36,10 @@ quarto_use_template <- function(
 ) {
   rlang::check_required(template)
 
+  if (!fs::dir_exists(dir)) {
+    fs::dir_create(dir)
+  }
+
   if (!is_empty_dir(dir) && quarto_available("1.5.15")) {
     cli::cli_abort(c(
       "{.arg dir} must be an empty directory.",

R/utils.R

@@ -106,7 +106,10 @@ has_internet <- function(host = "https://www.google.com") {
 
 is_empty_dir <- function(dir) {
   if (!dir.exists(dir)) {
-    return(FALSE)
+    rlang::warn(
+      "Directory {.path {dir}} does not exist. Assuming it is empty."
+    )
+    return(TRUE)
   }
   files <- list.files(dir, all.files = TRUE, no.. = TRUE)
   length(files) == 0