Use S7::method() for class_theme getter

Author: teunbrand

NAMESPACE

@@ -1,6 +1,5 @@
 # Generated by roxygen2: do not edit by hand
 
-S3method("$","ggplot2::theme")
 S3method("$",ggproto)
 S3method("$",ggproto_parent)
 S3method("[",mapped_discrete)

R/theme.R

@@ -1050,10 +1050,11 @@ combine_s3_elements <- function(e1, e2) {
   return(e1)
 }
 
-#' @export
-`$.ggplot2::theme` <- function(x, ...) {
-  .subset2(x, ...)
-}
+local({
+  S7::method(`$`, class_theme) <- function(x, ...) {
+    .subset2(x, ...)
+  }
+})
 
 #' @export
 `print.ggplot2::theme` <- function(x, ...) utils::str(x)