fix util_prompt_check() - noninteractive usage

mit-spatial-action · Aug 5, 2024 · 21150b9 · 21150b9
1 parent fdc8171
commit 21150b9
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/utilities.R b/R/utilities.R
@@ -235,7 +235,11 @@ util_run_which_tables <- function(routines, push_remote) {
 
 util_prompt_check <- function(prompt) {
   util_log_message(prompt)
-  r <- readline()
+  if (interactive()) {
+    r <- readline()
+  } else {
+    r <- readLines("stdin",n=1);
+  }
   if (r %in% c("Y", "y", "N", "n")) {
     check <- TRUE
   } else {