use @exportS3Method in favor of using own S3 registration code

lschneiderbauer · Dec 28, 2024 · fc28ff0 · fc28ff0
1 parent 555823b
commit fc28ff0
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 74 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -3,10 +3,11 @@
 S3method("[",fcwtr_scalogram)
 S3method(as.data.frame,fcwtr_scalogram)
 S3method(as.matrix,fcwtr_scalogram)
+S3method(ggplot2::autoplot,fcwtr_scalogram)
 S3method(plot,fcwtr_scalogram)
 S3method(print,fcwtr_scalogram)
 S3method(rbind,fcwtr_scalogram)
-export(autoplot.fcwtr_scalogram)
+S3method(tibble::as_tibble,fcwtr_scalogram)
 export(fcwt)
 export(fcwt_batch)
 export(u)

diff --git a/R/fcwtr_scalogram.R b/R/fcwtr_scalogram.R
@@ -335,6 +335,7 @@ as.data.frame.fcwtr_scalogram <- function(x, ...) {
   )
 }
 
+#' @exportS3Method tibble::as_tibble
 as_tibble.fcwtr_scalogram <- function(x, ...) {
   stopifnot(requireNamespace("tibble", quietly = TRUE))
 
@@ -490,7 +491,7 @@ plot.fcwtr_scalogram <- function(x, n = 1000, time_unit = "s", freq_unit = "Hz",
 #'
 #' autoplot(res, time_unit = "ms")
 #'
-#' @export
+#' @exportS3Method ggplot2::autoplot
 autoplot.fcwtr_scalogram <- function(object, n = 1000,
                                      time_unit = "s", freq_unit = "Hz", ...) {
   stopifnot(requireNamespace("ggplot2", quietly = TRUE))

diff --git a/R/zzz.R b/R/zzz.R
diff --git a/man/autoplot.fcwtr_scalogram.Rd b/man/autoplot.fcwtr_scalogram.Rd