Forward compatibility: fix mistakes (#6394)

Author: teunbrand

R/coord-.R

@@ -206,7 +206,7 @@ Coord <- ggproto("Coord",
 
 #' @export
 #' @rdname is_tests
-is_coord <- function(x) inheritS(x, "Coord")
+is_coord <- function(x) inherits(x, "Coord")
 
 #' @export
 #' @rdname is_tests

R/geom-defaults.R

@@ -80,16 +80,13 @@ update_stat_defaults <- function(stat, new) {
 #'
 #' # Using a class
 #' get_geom_defaults(GeomPoint)
-#'
-#' # Changed theme
-#' get_geom_defaults("point", theme(geom = element_geom(ink = "purple")))
 get_geom_defaults <- function(geom, theme = theme_get()) {
-  theme <- theme %||% list(geom = .default_geom_element)
+  theme <- theme %||% list()
 
   if (is.function(geom)) {
     geom <- geom()
   }
-  if (is.layer(geom)) {
+  if (is_layer(geom)) {
     data <- data_frame0(.id = 1L)
     data <- geom$compute_geom_2(data = data)
     data$.id <- NULL

R/labels.R

@@ -110,7 +110,7 @@ ggtitle <- function(label, subtitle = waiver()) {
 #' @param plot A ggplot object
 #' @description
 #' `get_labs()` retrieves completed labels from a plot.
-get_labs <- function(plot = get_last_plot()) {
+get_labs <- function(plot = last_plot()) {
   plot <- ggplot_build(plot)
 
   labs <- plot$plot$labels