ggplotGrob function

Author: hadley

NAMESPACE

@@ -71,6 +71,7 @@ export(ggpcp)
 export(ggplot_build)
 export(ggplot_gtable)
 export(ggplot)
+export(ggplotGrob)
 export(ggsave)
 export(ggstructure)
 export(guide_colorbar)

R/plot-render.r

@@ -175,3 +175,12 @@ print.ggplot <- function(x, newpage = is.null(vp), vp = NULL, ...) {
   invisible(data)
 }
 
+#' Generate a ggplot2 plot grob.
+#' 
+#' @param x ggplot2 object
+#' @keywords internal
+#' @export
+ggplotGrob <- function(x) {
+  gtable_gTree(ggplot_gtable(ggplot_build(x)))
+}
+