add approximate sign when not exact for SI prefix

emitanaka · Oct 15, 2023 · 5b1ec62 · 5b1ec62
1 parent e00a732
commit 5b1ec62
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/utils.R b/R/utils.R
@@ -254,7 +254,8 @@ number_si_prefix <- function(x) {
     index <- max(which(n/prefix >= 1))
     scale <- 1 / prefix[index]
     symbol <- names(prefix)[index]
-    paste0(floor(n * scale), symbol)
+    nn <- round(n * scale)
+    ifelse(nn == n * scale, paste0(nn, symbol), paste0("~", nn, symbol))
   })
 }