fix 'unique_rows' not found (#384)

thomasp85 · Sep 3, 2024 · a092f30 · a092f30
1 parent 3cb3d7b
commit a092f30
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/plot_patchwork.R b/R/plot_patchwork.R
@@ -687,8 +687,8 @@ liberate_rows <- function(gt, top, right, bottom, left, name = NULL, vp = NULL)
 liberate_cols <- function(gt, top, right, bottom ,left, name = NULL, vp = NULL) {
   liberate <- which(grob_in_rect(gt, top, right, bottom, left))
   unique_cols <- unique(gt$layout[liberate, c("l", "r")])
-  for (i in seq_len(nrow(unique_rows))) {
-    gt <- liberate_area(gt, top, unique_rows$r[i], bottom, unique_rows$l[i], name, vp)
+  for (i in seq_len(nrow(unique_cols))) {
+    gt <- liberate_area(gt, top, unique_cols$r[i], bottom, unique_cols$l[i], name, vp)
   }
   gt
 }