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

(v1.8.0.9010) as.mo improvement

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2022-03-15 17:35:02 +01:00
parent 0fb9a1b194
commit 7b0f1596bd
13 changed files with 76 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
R/mic.R
View File

@ -243,7 +243,7 @@ droplevels.mic <- function(x, exclude = if (any(is.na(levels(x)))) NULL else NA,
pillar_shaft.mic <- function(x, ...) {
crude_numbers <- as.double(x)
operators <- gsub("[^<=>]+", "", as.character(x))
operators[operators != ""] <- font_silver(operators[operators != ""], collapse = NULL)
operators[!is.na(operators) & operators != ""] <- font_silver(operators[!is.na(operators) & operators != ""], collapse = NULL)
out <- trimws(paste0(operators, trimws(format(crude_numbers))))
out[is.na(x)] <- font_na(NA)
# maketrailing zeroes almost invisible