avoid having to document unregistered methods by not exporting them

Author: teunbrand

NAMESPACE

@@ -67,19 +67,12 @@ S3method(simplify_gt,gtable_patchwork)
 S3method(simplify_gt,inset_table)
 S3method(simplify_gt,patchgrob)
 S3method(str,patchwork)
-export(add_ggplot)
-export(add_grob)
-export(add_gt_tbl)
-export(add_plot_annotation)
-export(add_plot_layout)
 export(align_patches)
 export(align_plots)
 export(area)
-export(build_fixed_dim_ggplot)
 export(free)
 export(get_dim)
 export(get_max_dim)
-export(gtable_fixed_dim_build)
 export(guide_area)
 export(inset_element)
 export(patchGrob)

R/add_plot.R

@@ -1,17 +1,14 @@
 #' @importFrom ggplot2 ggplot_add
-#' @export
 add_ggplot <- function(object, plot, object_name) {
   patches <- get_patches(plot)
   add_patches(object, patches)
 }
 #' @importFrom ggplot2 ggplot_add
-#' @export
 add_grob <- function(object, plot, object_name) {
   table <- as_patch(object)
   plot + wrap_elements(full = object)
 }
 #' @importFrom ggplot2 ggplot_add
-#' @export
 add_gt_tbl <- function(object, plot, object_name) {
   plot + wrap_table(object)
 }

R/plot_annotation.R

@@ -97,7 +97,6 @@ default_annotation <- plot_annotation(
   theme = NULL
 )
 #' @importFrom utils modifyList
-#' @export
 add_plot_annotation <- function(object, plot, object_name) {
   plot <- as_patchwork(plot)
   if (is.null(object$theme)) {

R/plot_layout.R

@@ -314,7 +314,6 @@ default_layout <- plot_layout(
   axes = 'keep', axis_titles = 'keep'
 )
 #' @importFrom utils modifyList
-#' @export
 add_plot_layout <- function(object, plot, object_name) {
   plot <- as_patchwork(plot)
   do_change <- object[!vapply(object, is_waiver, logical(1))]

R/plot_multipage.R

@@ -105,14 +105,12 @@ set_dim.patchwork <- function(plot, dim) {
   cli_abort('Setting dimensions on patchworks are currently unsupported')
 }
 #' @importFrom ggplot2 ggplot_build
-#' @export
 build_fixed_dim_ggplot <- function(plot) {
   plot <- NextMethod()
   class(plot) <- c('fixed_dim_build', class(plot))
   plot
 }
 #' @importFrom ggplot2 ggplot_gtable
-#' @export
 gtable_fixed_dim_build <- function(data) {
   dim <- data$plot$fixed_dimensions
   table <- NextMethod()