mirror of
https://github.com/msberends/AMR.git
synced 2025-01-24 07:44:34 +01:00
feat: Remove leading equal signs before mic levels (#181)
This commit is contained in:
parent
08ddbaa930
commit
1697ad37ce
2
R/mic.R
2
R/mic.R
@ -196,6 +196,8 @@ as.mic <- function(x, na.rm = FALSE, keep_operators = "all") {
|
||||
# transform => to >= and =< to <=
|
||||
x <- gsub("=<", "<=", x, fixed = TRUE)
|
||||
x <- gsub("=>", ">=", x, fixed = TRUE)
|
||||
# Remove leading == and =
|
||||
x <- gsub("^=+", "", x)
|
||||
# dots without a leading zero must start with 0
|
||||
x <- gsub("([^0-9]|^)[.]", "\\10.", x, perl = TRUE)
|
||||
# values like "<=0.2560.512" should be 0.512
|
||||
|
Loading…
Reference in New Issue
Block a user