user testing of app showed this

bnosac · Sep 2, 2021 · 23e72b0 · 23e72b0
1 parent f73368b
commit 23e72b0
Showing 1 changed file with 7 additions and 5 deletions.
diff --git a/R/cron_load.R b/R/cron_load.R
@@ -6,11 +6,13 @@
 #' @export
 cron_load <- function(file, user="", ask=TRUE) {
   stopifnot(is.character(file) && file.exists(file))
-  cat(sep="", "Are you sure you want to load the cron jobs available at '", file, "'? [y/n]: ")
-  input <- tolower(scan(what=character(), n=1, quiet=TRUE))
-  if (!input %in% "y") {
-    message("No action taken.")
-    return(invisible())
+  if(ask){
+    cat(sep="", "Are you sure you want to load the cron jobs available at '", file, "'? [y/n]: ")
+    input <- tolower(scan(what=character(), n=1, quiet=TRUE))
+    if (!input %in% "y") {
+      message("No action taken.")
+      return(invisible())
+    }
   }
   if (user == "") {
     system(paste("crontab", file))