use classic extractors and subassignment

Author: teunbrand

NAMESPACE

@@ -1,15 +1,21 @@
 # Generated by roxygen2: do not edit by hand
 
+S3method("$","ggplot2::element")
 S3method("$",ggproto)
 S3method("$",ggproto_parent)
 S3method("$",theme)
+S3method("$<-","ggplot2::element")
 S3method("$<-",uneval)
 S3method("+",gg)
+S3method("[","ggplot2::element")
 S3method("[",mapped_discrete)
 S3method("[",uneval)
+S3method("[<-","ggplot2::element")
 S3method("[<-",mapped_discrete)
 S3method("[<-",uneval)
+S3method("[[","ggplot2::element")
 S3method("[[",ggproto)
+S3method("[[<-","ggplot2::element")
 S3method("[[<-",uneval)
 S3method(.DollarNames,ggproto)
 S3method(as.data.frame,mapped_discrete)

R/theme-elements.R

@@ -329,6 +329,45 @@ rel <- function(x) {
   structure(x, class = "rel")
 }
 
+#' @export
+`$.ggplot2::element` <- function(x, i) {
+  # deprecate_soft0("4.0.0", I("`<ggplot2::element>$i`"), I("`<ggplot2::element>@i`"))
+  `[[`(S7::props(x), i)
+}
+
+#' @export
+`[.ggplot2::element` <- function(x, i) {
+  # deprecate_soft0("4.0.0", I("`<gglot2::element>[i]`"), I("`S7::props(<ggplot2::element>, i)`"))
+  `[`(S7::props(x), i)
+}
+
+#' @export
+`[[.ggplot2::element` <- function(x, i) {
+  # deprecate_soft0("4.0.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.0.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.0.0", I("`<ggplot2::element>[i] <- value`"), I("`S7::props(<ggplot2::element>)[i] <- value`"))
+  S7::props(x) <- `[<-`(S7::props(x), i, value)
+  x
+}
+
+#' @export
+`[[<-.ggplot2::element` <- function(x, i, value) {
+  # deprecate_soft0("4.0.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 = "")))