remove editViewport dep

yjunechoe · Oct 3, 2023 · 6fcbdd0 · 6fcbdd0
1 parent 7dd8591
commit 6fcbdd0
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/guide_colormeter.R b/R/guide_colormeter.R
@@ -261,9 +261,10 @@ guide_gengrob.colormeter <- function(guide, theme) {
     dashboard_border <- grid::rectGrob(
       width = grid::convertUnit(sum(gt$widths), "cm"),
       height = grid::convertUnit(sum(gt$heights), "cm"),
-      gp = dashboard_border_gp,
-      vp = grid::editViewport(legend_vp, mask = grid::editGrob(dashboard_grob, gp = grid::gpar(fill = "white")))
+      gp = dashboard_border_gp
     )
+    dashboard_border$vp <- legend_vp
+    dashboard_border$vp$mask <- grid::editGrob(dashboard_grob, gp = grid::gpar(fill = "white"))
     gt <- gtable::gtable_add_grob(gt, dashboard_border, name = "dashboard_close",
                                   clip = "off", t = 1, r = 3, b = 3, l = 1)
   }