Only call menu in interactive mode

jeroen · jeroen · commit f7839c0bf90c · 2024-10-03T18:27:47.000+02:00
Closes #86
diff --git a/R/wordlist.R b/R/wordlist.R
@@ -36,7 +36,7 @@ update_wordlist <- function(pkg = ".", vignettes = TRUE, confirm = TRUE){
     }
     if(isTRUE(confirm) && length(words_added)){
       cat("Are you sure you want to update the wordlist?")
-      if (utils::menu(c("Yes", "No")) != 1){
+      if (interactive() && utils::menu(c("Yes", "No")) != 1){
         return(invisible())
       }
     }

Original file line number	Diff line number	Diff line change
`@@ -36,7 +36,7 @@ update_wordlist <- function(pkg = ".", vignettes = TRUE, confirm = TRUE){`
`36`	`36`	`}`
`37`	`37`	`if(isTRUE(confirm) && length(words_added)){`
`38`	`38`	`cat("Are you sure you want to update the wordlist?")`
`39`		`- if (utils::menu(c("Yes", "No")) != 1){`
	`39`	`+ if (interactive() && utils::menu(c("Yes", "No")) != 1){`
`40`	`40`	`return(invisible())`
`41`	`41`	`}`
`42`	`42`	`}`