align_margin() only considers non-compound null-units

wilkelab · Jan 17, 2024 · cb1f50e · cb1f50e
1 parent f651f45
commit cb1f50e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/align_plots.R b/R/align_plots.R
@@ -53,7 +53,7 @@ align_margin <- function(sizes, margin_to_align, greedy = TRUE) {
       sizes,
       function(x) {
         # find all positions of unit NULL
-        null_idx <- grep("null", x)
+        null_idx <- grep("null$", x)
         # if there are none, abort
         if (length(null_idx) < 1) {
           return(NULL)
@@ -70,7 +70,7 @@ align_margin <- function(sizes, margin_to_align, greedy = TRUE) {
       sizes,
       function(x) {
         # find all positions of unit NULL
-        null_idx <- grep("null", x)
+        null_idx <- grep("null$", x)
         # if there are none, abort
         if (length(null_idx) < 1) {
           return(NULL)