Clean up orphan functions and tiny one-off helpers

NAMESPACE

@@ -459,9 +459,20 @@ export(guide_transform)
 export(guides)
 export(has_flipped_aes)
 export(is.Coord)
+export(is.coord)
+export(is.element)
 export(is.facet)
+export(is.geom)
 export(is.ggplot)
 export(is.ggproto)
+export(is.guide)
+export(is.guides)
+export(is.layer)
+export(is.mapping)
+export(is.margin)
+export(is.position)
+export(is.scale)
+export(is.stat)
 export(is.theme)
 export(label_both)
 export(label_bquote)

R/coord-.R

@@ -225,12 +225,6 @@ Coord <- ggproto("Coord",
  }
 )
 
-#' Is this object a coordinate system?
-#'
-#' @export is.Coord
-#' @keywords internal
-is.Coord <- function(x) inherits(x, "Coord")
-
 # Renders an axis with the correct orientation or zeroGrob if no axis should be
 # generated
 render_axis <- function(panel_params, axis, scale, position, theme) {

R/facet-.R

@@ -353,13 +353,6 @@ get_strip_labels <- function(plot = get_last_plot()) {
  plot$plot$facet$format_strip_labels(layout, params)
 }
 
-#' Is this object a faceting specification?
-#'
-#' @param x object to test
-#' @keywords internal
-#' @export
-is.facet <- function(x) inherits(x, "Facet")
-
 # A "special" value, currently not used but could be used to determine
 # if faceting is active
 NO_PANEL <- -1L

R/ggproto.R

@@ -106,11 +106,6 @@ ggproto_parent <- function(parent, self) {
  structure(list(parent = parent, self = self), class = "ggproto_parent")
 }
 
-#' @param x An object to test.
-#' @export
-#' @rdname ggproto
-is.ggproto <- function(x) inherits(x, "ggproto")
-
 fetch_ggproto <- function(x, name) {
  res <- NULL
 

R/plot.R

@@ -154,12 +154,6 @@ plot_clone <- function(plot) {
  p
 }
 
-#' Reports whether x is a ggplot object
-#' @param x An object to test
-#' @keywords internal
-#' @export
-is.ggplot <- function(x) inherits(x, "ggplot")
-
 #' Explicitly draw plot
 #'
 #' Generally, you do not need to print or plot a ggplot2 plot explicitly: the

R/theme.R

@@ -905,12 +905,6 @@ combine_elements <- function(e1, e2) {
  e1
 }
 
-#' Reports whether x is a theme object
-#' @param x An object to test
-#' @export
-#' @keywords internal
-is.theme <- function(x) inherits(x, "theme")
-
 #' @export
 `$.theme` <- function(x, ...) {
  .subset2(x, ...)

R/utilities-checks.R

@@ -1,3 +1,86 @@
+# Tests -------------------------------------------------------------------
+
+#' Reports whether x is a type of object
+#' @param x An object to test
+#' @keywords internal
+#' @export
+#' @name is_tests
+is.ggplot <- function(x) inherits(x, "ggplot")
+
+#' @export
+#' @rdname is_tests
+is.mapping <- function(x) inherits(x, "uneval")
+
+#' @export
+#' @rdname is_tests
+is.coord <- function(x) inherits(x, "Coord")
+
+#' @export
+#' @rdname is_tests
+#' @usage is.Coord(x) # Deprecated
+is.Coord <- function(x) {
+ deprecate_soft0("3.5.2", "is.Coord()", "is.coord()")
+ is.coord(x)
+}
+
+#' @export
+#' @rdname is_tests
+is.ggproto <- function(x) inherits(x, "ggproto")
+
+#' @export
+#' @rdname is_tests
+is.facet <- function(x) inherits(x, "Facet")
+
+#' @export
+#' @rdname is_tests
+#' @usage
+#' # Layer related tests
+#' is.layer(x)
+is.layer <- function(x) inherits(x, "Layer")
+
+#' @export
+#' @rdname is_tests
+is.geom <- function(x) inherits(x, "Geom")
+
+#' @export
+#' @rdname is_tests
+is.stat <- function(x) inherits(x, "Stat")
+
+#' @export
+#' @rdname is_tests
+is.position <- function(x) inherits(x, "Position")
+
+#' @export
+#' @usage
+#' # Scale and guide related tests
+#' is.scale(x)
+#' @rdname is_tests
+is.scale <- function(x) inherits(x, "Scale")
+
+#' @export
+#' @rdname is_tests
+is.guide <- function(x) inherits(x, "Guide")
+
+#' @export
+#' @rdname is_tests
+is.guides <- function(x) inherits(x, "Guides")
+
+#' @export
+#' @usage
+#' # Theme related tests
+#' is.theme(x)
+#' @rdname is_tests
+is.theme <- function(x) inherits(x, "theme")
+
+#' @export
+#' @rdname is_tests
+is.element <- function(x) inherits(x, "element")
+
+#' @export
+#' @rdname is_tests
+is.margin <- function(x) inherits(x, "margin")
+
+# Checks ------------------------------------------------------------------
 
 # Extra checks in addition to the ones in import-standalone-types-check.R