Fix #168 subsetting on the wrong dimension when fixing left outside s…

…trip
thomasp85 · Jun 17, 2020 · 22737e0 · 22737e0
1 parent 8141e61
commit 22737e0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/plot_patchwork.R b/R/plot_patchwork.R
@@ -538,7 +538,7 @@ add_strips <- function(gt) {
     gt <- gtable_add_cols(gt, unit(0, 'mm'), panel_loc$l - 1 - strip_pos)
   } else if (strip_pos == 2) {
     gt$widths[panel_loc$l - 1] <- sum(gt$widths[panel_loc$l - c(1, 2)])
-    gt <- gt[-(panel_loc$l - 2), ]
+    gt <- gt[, -(panel_loc$l - 2)]
   }
   gt
 }