Use {testthat} edition 3 (#490)

* Update tests to be testthat ed 3

* Update snaps

DESCRIPTION

@@ -78,3 +78,4 @@ Language: en-US
 RdMacros: lifecycle
 Remotes:
     tidyverse/ggplot2@rc/3.5.0
+Config/testthat/edition: 3

NAMESPACE

@@ -4,6 +4,8 @@ S3method("+",gg)
 S3method("[",ggmatrix)
 S3method("[",glyphplot)
 S3method("[<-",ggmatrix)
+S3method(as.character,ggmatrix_fn_with_params)
+S3method(as.character,ggmatrix_plot_obj)
 S3method(grid.draw,ggmatrix)
 S3method(print,ggmatrix)
 S3method(print,glyphplot)

R/ggpairs_internal_plots.R

@@ -166,6 +166,7 @@ wrap <- function(funcVal, ..., funcArgName = deparse(substitute(funcVal))) {
 wrap_fn_with_params <- wrap
 
 
+#' @export
 as.character.ggmatrix_fn_with_params <- function(x, ...) {
   params <- attr(x, "params")
   fnName <- attr(x, "name")
@@ -220,6 +221,7 @@ mapping_as_string <- function(mapping) {
   str_c("c(", str_c(names(mapping), as.character(mapping), sep = " = ", collapse = ", "), ")")
 }
 
+#' @export
 as.character.ggmatrix_plot_obj <- function(x, ...) {
   hasGg <- (!is.null(x$gg))
   mappingTxt <- mapping_as_string(x$mapping)