mirror of
https://github.com/msberends/AMR.git
synced 2025-07-08 07:51:57 +02:00
(v1.2.0.9021) only progressbar in interactive sessions
This commit is contained in:
@ -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)
|
||||
|
Reference in New Issue
Block a user