Fixes #49 for coord_geo_polar

willgearty · Nov 30, 2023 · 7c2903f · 7c2903f
1 parent 51ce2c7
commit 7c2903f
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 0 deletions.
diff --git a/R/coord_geo.R b/R/coord_geo.R
@@ -324,8 +324,10 @@ make_geo_scale <- function(self, dat, fill, color, alpha, pos,
   }
   dat$label[dat$name %in% skip] <- ""
 
+  # do this so ggsave gets the whole plot
   old_plot <- last_plot()
   on.exit(set_last_plot(old_plot))
+
   # make ggplot of scale
   gg_scale <- ggplot() +
     geom_rect(

diff --git a/R/coord_geo_polar.R b/R/coord_geo_polar.R
@@ -213,6 +213,11 @@ CoordGeoPolar <- ggproto("CoordGeoPolar", CoordPolar,
     }
     xmins <- cumsum(c(0, prop_list))
 
+    # do this so ggsave gets the whole plot
+    old_plot <- last_plot()
+    on.exit(set_last_plot(old_plot))
+
+    # assemble the timescale background as a ggplot
     geo_scale <- ggplot()
     for (ind in seq_along(dat_list)) {
       geo_scale <- geo_scale +