Incorporate latest ggplot2 class renaming

in tidyverse/ggplot2#6546

Author: mrcaseb

NAMESPACE

@@ -11,8 +11,8 @@ export(geom_mean_lines)
 export(geom_median_lines)
 if (getRversion() < "4.3.0") importFrom("S7", "@")
 import(grid)
-importFrom(ggplot2,draw_element)
 importFrom(ggplot2,element)
+importFrom(ggplot2,element_grob)
 importFrom(ggplot2,element_text)
 importFrom(rlang,"%||%")
 importFrom(tools,R_user_dir)

R/ggpath-package.R

@@ -2,7 +2,7 @@
 "_PACKAGE"
 
 ## usethis namespace: start
-#' @importFrom ggplot2 element_text draw_element element
+#' @importFrom ggplot2 element_text element_grob element
 #' @import grid
 #' @importFrom rlang %||%
 #' @importFrom tools R_user_dir

R/theme_element.R

@@ -183,7 +183,7 @@ element_raster <- S7::new_class(
   }
 )
 
-S7::method(draw_element, element_path) <- function(
+S7::method(element_grob, element_path) <- function(
   element,
   label = "",
   x = NULL,
@@ -242,7 +242,7 @@ grobHeight.ggpath_element <- function(x, ...) x$size
 #' @export
 grobWidth.ggpath_element <- function(x, ...) x$size
 
-S7::method(draw_element, element_raster) <- function(element, ...) {
+S7::method(element_grob, element_raster) <- function(element, ...) {
   img <- try(reader_function(element@image_path), silent = TRUE)
   # if the path is invalid we warn the user and insert a NULL grob
   if (inherits(img, "try-error")) {

tests/testthat/test-theme-elements.R

@@ -71,8 +71,8 @@ test_that("theme element works with 'b/w'", {
   # because the reference file is created on a mac and comparison breaks
   # on other operating systems because of slightly different grey tones.
   # for code coverage we build the plot without printing it
-  out <- ggplot2::build_ggplot(p2) |>
-    ggplot2::gtable_ggplot()
+  out <- ggplot2::ggplot_build(p2) |>
+    ggplot2::ggplot_gtable()
   skip_on_os(c("windows", "linux", "solaris"))
 
   vdiffr::expect_doppelganger("p2", p2)