Compatibility with ggplot2 4.0.0 (#4226)

teunbrand · wch · web-flow · commit a660093fa56d · 2025-06-09T17:20:43.000-05:00
* add S7 class method

* Update tests/testthat/test-plot-coordmap.R

---------

Co-authored-by: Winston Chang &lt;winston@stdout.org&gt;
diff --git a/tests/testthat/test-plot-coordmap.R b/tests/testthat/test-plot-coordmap.R
@@ -6,7 +6,9 @@ sortList <- function(x) {
 }
 
 # This will create print.ggplot in the current environment
-print.ggplot <- custom_print.ggplot
+# print.ggplot is for ggplot2 < 4.0.0
+# print.ggplot2::ggplot is for ggplot2 >= 4.0.0
+print.ggplot <- `print.ggplot2::ggplot` <- custom_print.ggplot
 
 
 test_that("ggplot coordmap", {

Original file line number	Diff line number	Diff line change
`@@ -6,7 +6,9 @@ sortList <- function(x) {`
`6`	`6`	`}`
`7`	`7`
`8`	`8`	`# This will create print.ggplot in the current environment`
`9`		`-print.ggplot <- custom_print.ggplot`
	`9`	`+# print.ggplot is for ggplot2 < 4.0.0`
	`10`	`+# print.ggplot2::ggplot is for ggplot2 >= 4.0.0`
	`11`	+print.ggplot <- `print.ggplot2::ggplot` <- custom_print.ggplot
`10`	`12`
`11`	`13`
`12`	`14`	`test_that("ggplot coordmap", {`