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

(v1.4.0.9021) more robust class setting

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2020-11-16 16:57:55 +01:00
parent 05fb213a7c
commit deefce9520
29 changed files with 98 additions and 85 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
R/aa_helper_functions.R
View File

@ -670,7 +670,7 @@ progress_ticker <- function(n = 1, n_min = 0, ...) {
pb$kill <- function() {
invisible()
}
structure(pb, class = "txtProgressBar")
set_clean_class(pb, new_class = "txtProgressBar")
} else if (n >= n_min) {
pb <- utils::txtProgressBar(max = n, style = 3)
pb$tick <- function() {
@ -680,6 +680,21 @@ progress_ticker <- function(n = 1, n_min = 0, ...) {
}
}
set_clean_class <- function(x, new_class) {
if (is.null(x)) {
x <- NA_character_
}
if (is.factor(x)) {
lvls <- levels(x)
attributes(x) <- NULL
levels(x) <- lvls
} else {
attributes(x) <- NULL
}
class(x) <- new_class
x
}
create_pillar_column <- function(x, ...) {
new_pillar_shaft_simple <- import_fn("new_pillar_shaft_simple", "pillar", error_on_fail = FALSE)
if (!is.null(new_pillar_shaft_simple)) {