P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-08 07:51:57 +02:00
Code Releases Activity

(v1.2.0.9038) CLSI 2019 fix

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2020-07-29 10:33:47 +02:00
parent 1b65d76cfb
commit 453f7f210b
65 changed files with 211 additions and 514 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
R/aa_helper_functions.R
View File

@ -419,13 +419,7 @@ font_stripstyle <- function(x) {
}
progress_estimated <- function(n = 1, n_min = 0, ...) {
if (n >= n_min & interactive()) {
pb <- utils::txtProgressBar(max = n, style = 3)
pb$tick <- function() {
pb$up(pb$getVal() + 1)
}
pb
} else {
if (!interactive() || n < n_min) {
pb <- list()
pb$tick <- function() {
invisible()
@ -434,6 +428,12 @@ progress_estimated <- function(n = 1, n_min = 0, ...) {
invisible()
}
structure(pb, class = "txtProgressBar")
} else if (n >= n_min) {
pb <- utils::txtProgressBar(max = n, style = 3)
pb$tick <- function() {
pb$up(pb$getVal() + 1)
}
pb
}
}