prevent NSE shenannigans

teunbrand · teunbrand · commit 95cc8e5f150c · 2025-05-21T15:33:05.000+02:00
diff --git a/R/plot.R b/R/plot.R
@@ -242,7 +242,7 @@ S7::method(plot, class_ggplot) <- `print.ggplot2::ggplot`
 
 #' @export
 `$<-.ggplot2::gg` <- function(x, i, value) {
-  S7::props(x) <- `$<-`(S7::props(x), i, value)
+  S7::props(x) <- `[[<-`(S7::props(x), i, value)
   x
 }
 

Original file line number	Diff line number	Diff line change
@@ -242,7 +242,7 @@ S7::method(plot, class_ggplot) <- `print.ggplot2::ggplot`
`242`	`242`
`243`	`243`	`#' @export`
`244`	`244`	`$<-.ggplot2::gg` <- function(x, i, value) {
`245`		- S7::props(x) <- `$<-`(S7::props(x), i, value)
	`245`	+ S7::props(x) <- `[[<-`(S7::props(x), i, value)
`246`	`246`	`x`
`247`	`247`	`}`
`248`	`248`