Use S7::method() for element getters/setters

Author: teunbrand

NAMESPACE

@@ -1,25 +1,19 @@
 # Generated by roxygen2: do not edit by hand
 
-S3method("$","ggplot2::element")
 S3method("$","ggplot2::gg")
 S3method("$","ggplot2::theme")
 S3method("$",ggproto)
 S3method("$",ggproto_parent)
-S3method("$<-","ggplot2::element")
 S3method("$<-","ggplot2::gg")
 S3method("$<-","ggplot2::mapping")
-S3method("[","ggplot2::element")
 S3method("[","ggplot2::gg")
 S3method("[","ggplot2::mapping")
 S3method("[",mapped_discrete)
-S3method("[<-","ggplot2::element")
 S3method("[<-","ggplot2::gg")
 S3method("[<-","ggplot2::mapping")
 S3method("[<-",mapped_discrete)
-S3method("[[","ggplot2::element")
 S3method("[[","ggplot2::gg")
 S3method("[[",ggproto)
-S3method("[[<-","ggplot2::element")
 S3method("[[<-","ggplot2::gg")
 S3method("[[<-","ggplot2::mapping")
 S3method(.DollarNames,ggproto)

R/theme-elements.R

@@ -383,44 +383,40 @@ rel <- function(x) {
   structure(x, class = "rel")
 }
 
-#' @export
-`$.ggplot2::element` <- function(x, i) {
-  # deprecate_soft0("4.1.0", I("`<ggplot2::element>$i`"), I("`<ggplot2::element>@i`"))
-  `[[`(S7::props(x), i)
-}
-
-#' @export
-`[.ggplot2::element` <- function(x, i) {
-  # deprecate_soft0("4.1.0", I("`<gglot2::element>[i]`"), I("`S7::props(<ggplot2::element>, i)`"))
-  `[`(S7::props(x), i)
-}
-
-#' @export
-`[[.ggplot2::element` <- function(x, i) {
-  # deprecate_soft0("4.1.0", I("`<ggplot2::element>[[i]]`"), I("`S7::prop(<ggplot2::element>, i)`"))
-  `[[`(S7::props(x), i)
-}
-
-#' @export
-`$<-.ggplot2::element` <- function(x, i, value) {
-  # deprecate_soft0("4.1.0", I("`<ggplot2::element>$i <- value`"), I("`<ggplot2::element>@i <- value`"))
-  S7::props(x) <- `[[<-`(S7::props(x), i, value)
-  x
-}
-
-#' @export
-`[<-.ggplot2::element` <- function(x, i, value) {
-  # deprecate_soft0("4.1.0", I("`<ggplot2::element>[i] <- value`"), I("`S7::props(<ggplot2::element>)[i] <- value`"))
-  S7::props(x) <- `[<-`(S7::props(x), i, value)
-  x
-}
+# Element getter methods
+local({
+  S7::method(`$`, element) <- function(x, i) {
+    # deprecate_soft0("4.1.0", I("`<ggplot2::element>$i`"), I("`<ggplot2::element>@i`"))
+    `[[`(S7::props(x), i)
+  }
+  S7::method(`[`, element) <- function(x, i) {
+    # deprecate_soft0("4.1.0", I("`<gglot2::element>[i]`"), I("`S7::props(<ggplot2::element>, i)`"))
+    `[`(S7::props(x), i)
+  }
+  S7::method(`[[`, element) <- function(x, i) {
+    # deprecate_soft0("4.1.0", I("`<ggplot2::element>[[i]]`"), I("`S7::prop(<ggplot2::element>, i)`"))
+    `[[`(S7::props(x), i)
+  }
+})
 
-#' @export
-`[[<-.ggplot2::element` <- function(x, i, value) {
-  # deprecate_soft0("4.1.0", I("`<ggplot2::element>[[i]] <- value`"), I("S7::prop(<ggplot2::element>, i) <- value"))
-  S7::props(x) <- `[[<-`(S7::props(x), i, value)
-  x
-}
+# Element setter methods
+local({
+  S7::method(`$<-`, element) <- function(x, i, value) {
+    # deprecate_soft0("4.1.0", I("`<ggplot2::element>$i <- value`"), I("`<ggplot2::element>@i <- value`"))
+    S7::props(x) <- `[[<-`(S7::props(x), i, value)
+    x
+  }
+  S7::method(`[<-`, element) <- function(x, i, value) {
+    # deprecate_soft0("4.1.0", I("`<ggplot2::element>[i] <- value`"), I("`S7::props(<ggplot2::element>)[i] <- value`"))
+    S7::props(x) <- `[<-`(S7::props(x), i, value)
+    x
+  }
+  S7::method(`[[<-`, element) <- function(x, i, value) {
+    # deprecate_soft0("4.1.0", I("`<ggplot2::element>[[i]] <- value`"), I("S7::prop(<ggplot2::element>, i) <- value"))
+    S7::props(x) <- `[[<-`(S7::props(x), i, value)
+    x
+  }
+})
 
 #' @export
 print.rel <- function(x, ...) print(noquote(paste(x, " *", sep = "")))