also access ggplot_built slots with normal extractors

Author: teunbrand

NAMESPACE

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

R/plot.R

@@ -280,34 +280,34 @@ S7::method(print, class_ggplot) <-
 }
 
 #' @export
-`$.ggplot2::ggplot` <- function(x, i) {
+`$.ggplot2::gg` <- function(x, i) {
   `[[`(S7::props(x), i)
 }
 
 #' @export
-`$<-.ggplot2::ggplot` <- function(x, i, value) {
+`$<-.ggplot2::gg` <- function(x, i, value) {
   S7::props(x) <- `$<-`(S7::props(x), i, value)
   x
 }
 
 #' @export
-`[.ggplot2::ggplot` <- function(x, i) {
+`[.ggplot2::gg` <- function(x, i) {
   `[`(S7::props(x), i)
 }
 
 #' @export
-`[<-.ggplot2::ggplot` <- function(x, i, value) {
+`[<-.ggplot2::gg` <- function(x, i, value) {
   S7::props(x) <- `[<-`(S7::props(x), i, value)
   x
 }
 
 #' @export
-`[[.ggplot2::ggplot` <- function(x, i) {
+`[[.ggplot2::gg` <- function(x, i) {
   `[[`(S7::props(x), i)
 }
 
 #' @export
-`[[<-.ggplot2::ggplot` <- function(x, i, value) {
+`[[<-.ggplot2::gg` <- function(x, i, value) {
   S7::props(x) <- `[[<-`(S7::props(x), i, value)
   x
 }