fixed a bug with negative units

ztsin · Dec 8, 2022 · 7f95b79 · 7f95b79
1 parent 46d41b9
commit 7f95b79
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/NEWS b/NEWS
@@ -2,6 +2,7 @@ CHANGES in VERSION 2.15.1
 
 * `Legend()`: allows `NA` in `pch`.
 * `SingleAnnotation()`: correctly calculate the max width/height of a vector of texts.
+* `to_unit()`: fixed a bug when the unit is negative.
 
 =======================
 

diff --git a/R/utils.R b/R/utils.R
@@ -1020,7 +1020,7 @@ to_unit_str = function(unit) {
 
 to_unit = function(str) {
     d = gsub("[^\\d]+$", "", str, perl = TRUE)
-    u = gsub("[\\d.]", "", str, perl = TRUE)
+    u = gsub("^.*[\\d.]", "", str, perl = TRUE)
     unit(as.numeric(d), u)
 }