Register print_plot() methods

Author: lionel-

NAMESPACE

@@ -1,5 +1,9 @@
 # Generated by roxygen2: do not edit by hand
 
+S3method(print_plot,"function")
+S3method(print_plot,default)
+S3method(print_plot,ggplot)
+S3method(print_plot,recordedplot)
 export(expect_doppelganger)
 export(write_svg)
 import(rlang)

R/svg.R

@@ -27,10 +27,12 @@ print_plot <- function(p, title = "") {
   UseMethod("print_plot")
 }
 
+#' @export
 print_plot.default <- function(p, title = "") {
   print(p)
 }
 
+#' @export
 print_plot.ggplot <- function(p, title = "") {
   if (title != "" && !"title" %in% names(p$labels)) {
     p <- p + ggplot2::ggtitle(title)
@@ -41,10 +43,12 @@ print_plot.ggplot <- function(p, title = "") {
   print(p)
 }
 
+#' @export
 print_plot.recordedplot <- function(p, title) {
   grDevices::replayPlot(p)
 }
 
+#' @export
 print_plot.function <- function(p, title) {
   p()
 }