From e732f477a3864ff03fe7b27e85db931352d263ef Mon Sep 17 00:00:00 2001 From: Edwin van Leeuwen Date: Tue, 14 Jan 2025 11:42:17 +0000 Subject: [PATCH] feat: Remove leading equal signs before mic levels --- R/mic.R | 3 +++ 1 file changed, 3 insertions(+) diff --git a/R/mic.R b/R/mic.R index 020872698..3a46b3d8d 100644 --- a/R/mic.R +++ b/R/mic.R @@ -196,6 +196,9 @@ 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, fixed = TRUE) + x <- gsub("^=", "", x, fixed = TRUE) # 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