Export build function

mkcor · mkcor · commit dcbc99f0928d · 2014-08-01T17:36:36.000-04:00
diff --git a/NAMESPACE b/NAMESPACE
@@ -1,6 +1,7 @@
 # Generated by roxygen2 (4.0.1): do not edit by hand
 
 export(gg2list)
+export(ggplot_build2)
 export(layer2traces)
 export(now)
 export(paramORdefault)
diff --git a/R/build_function.R b/R/build_function.R
@@ -1,14 +1,4 @@
-#' ggplot build function with enhanced return
-#'
-#' This function builds on top of ggplot2::ggplot_build by
-#' Hadley Wickham <h.wickham@@gmail.com> and Winston Chang <winston@@stdout.org>
-#' (http://ggplot2.org, https://github.com/hadley/ggplot2).
-#'
-#' @param plot ggplot2 plot
-#' @return List with (data, panel, plot, prestats.data) where prestats.data
-#' is the data as it is prior to calculate_stats() call
-#' @keywords internal
-make_ggplot_build2 <- function(plot) {
+make_ggplot_build2 <- local({
   # Get body of the original function, in list form
   ggplot_build2 <- ggplot2::ggplot_build
   g_b <- as.list(body(ggplot_build2))
@@ -27,17 +17,19 @@ make_ggplot_build2 <- function(plot) {
   
   # Assign the modified body back into the function
   body(ggplot_build2) <- as.call(g_b2)
-  ggplot_build2(plot)
-}
+  ggplot_build2
+})
 
-#' wrapper for build function
+#' ggplot build function with enhanced return
 #'
-#' It would be inefficient to perform each step found in make_ggplot_build2()
-#' every time we want to make use of its output.
+#' This function builds on top of ggplot2::ggplot_build by
+#' Hadley Wickham <h.wickham@@gmail.com> and Winston Chang <winston@@stdout.org>
+#' (http://ggplot2.org, https://github.com/hadley/ggplot2).
 #'
 #' @param plot ggplot2 plot
 #' @return List with (data, panel, plot, prestats.data) where prestats.data
 #' is the data as it is prior to calculate_stats() call
+#' @export
 #' @keywords internal
 ggplot_build2 <- function(plot) {
   make_ggplot_build2(plot)
diff --git a/man/ggplot_build2.Rd b/man/ggplot_build2.Rd
@@ -1,7 +1,7 @@
 % Generated by roxygen2 (4.0.1): do not edit by hand
 \name{ggplot_build2}
 \alias{ggplot_build2}
-\title{wrapper for build function}
+\title{ggplot build function with enhanced return}
 \usage{
 ggplot_build2(plot)
 }
@@ -13,8 +13,9 @@ List with (data, panel, plot, prestats.data) where prestats.data
 is the data as it is prior to calculate_stats() call
 }
 \description{
-It would be inefficient to perform each step found in make_ggplot_build2()
-every time we want to make use of its output.
+This function builds on top of ggplot2::ggplot_build by
+Hadley Wickham <h.wickham@gmail.com> and Winston Chang <winston@stdout.org>
+(http://ggplot2.org, https://github.com/hadley/ggplot2).
 }
 \keyword{internal}
 
diff --git a/man/make_ggplot_build2.Rd b/man/make_ggplot_build2.Rd

Original file line number	Diff line number	Diff line change
`@@ -1,7 +1,7 @@`
`1`	`1`	`% Generated by roxygen2 (4.0.1): do not edit by hand`
`2`	`2`	`\name{ggplot_build2}`
`3`	`3`	`\alias{ggplot_build2}`
`4`		`-\title{wrapper for build function}`
	`4`	`+\title{ggplot build function with enhanced return}`
`5`	`5`	`\usage{`
`6`	`6`	`ggplot_build2(plot)`
`7`	`7`	`}`
`@@ -13,8 +13,9 @@ List with (data, panel, plot, prestats.data) where prestats.data`
`13`	`13`	`is the data as it is prior to calculate_stats() call`
`14`	`14`	`}`
`15`	`15`	`\description{`
`16`		`-It would be inefficient to perform each step found in make_ggplot_build2()`
`17`		`-every time we want to make use of its output.`
	`16`	`+This function builds on top of ggplot2::ggplot_build by`
	`17`	`+Hadley Wickham <h.wickham@gmail.com> and Winston Chang <winston@stdout.org>`
	`18`	`+(http://ggplot2.org, https://github.com/hadley/ggplot2).`
`18`	`19`	`}`
`19`	`20`	`\keyword{internal}`
`20`	`21`