(v1.2.0.9021) only progressbar in interactive sessions

R/aa_helper_functions.R

@@ -411,7 +411,7 @@ font_stripstyle <- function(x) {
 }
 
 progress_estimated <- function(n = 1, n_min = 0, ...) {
-  if (n >= n_min) {
+  if (n >= n_min & interactive()) {
     pb <- utils::txtProgressBar(max = n, style = 3)
     pb$tick <- function() {
       pb$up(pb$getVal() + 1)

R/ab_from_text.R

@@ -124,7 +124,7 @@ ab_from_text <- function(text,
         as.ab(NA)
       } else {
         if (!isFALSE(translate_ab)) {
-          out <- ab_property(out, property = translate_ab, initial = FALSE)
+          out <- ab_property(out, property = translate_ab, initial_search = FALSE)
         }
         out
       }

R/key_antibiotics.R

@@ -327,7 +327,7 @@ key_antibiotics_equal <- function(y,
     }
   }
   if (info_needed == TRUE) {
-    cat("\n")
+    close(p)
   }
   result
 }