@@ -331,39 +331,39 @@ rel <- function(x) {
331331
332332# ' @export
333333`$.ggplot2::element` <- function (x , i ) {
334- # deprecate_soft0("4.0 .0", I("`<ggplot2::element>$i`"), I("`<ggplot2::element>@i`"))
334+ # deprecate_soft0("4.1 .0", I("`<ggplot2::element>$i`"), I("`<ggplot2::element>@i`"))
335335 `[[`(S7 :: props(x ), i )
336336}
337337
338338# ' @export
339339`[.ggplot2::element` <- function (x , i ) {
340- # deprecate_soft0("4.0 .0", I("`<gglot2::element>[i]`"), I("`S7::props(<ggplot2::element>, i)`"))
340+ # deprecate_soft0("4.1 .0", I("`<gglot2::element>[i]`"), I("`S7::props(<ggplot2::element>, i)`"))
341341 `[`(S7 :: props(x ), i )
342342}
343343
344344# ' @export
345345`[[.ggplot2::element` <- function (x , i ) {
346- # deprecate_soft0("4.0 .0", I("`<ggplot2::element>[[i]]`"), I("`S7::prop(<ggplot2::element>, i)`"))
346+ # deprecate_soft0("4.1 .0", I("`<ggplot2::element>[[i]]`"), I("`S7::prop(<ggplot2::element>, i)`"))
347347 `[[`(S7 :: props(x ), i )
348348}
349349
350350# ' @export
351351`$<-.ggplot2::element` <- function (x , i , value ) {
352- # deprecate_soft0("4.0 .0", I("`<ggplot2::element>$i <- value`"), I("`<ggplot2::element>@i <- value`"))
352+ # deprecate_soft0("4.1 .0", I("`<ggplot2::element>$i <- value`"), I("`<ggplot2::element>@i <- value`"))
353353 S7 :: props(x ) <- `[[<-`(S7 :: props(x ), i , value )
354354 x
355355}
356356
357357# ' @export
358358`[<-.ggplot2::element` <- function (x , i , value ) {
359- # deprecate_soft0("4.0 .0", I("`<ggplot2::element>[i] <- value`"), I("`S7::props(<ggplot2::element>)[i] <- value`"))
359+ # deprecate_soft0("4.1 .0", I("`<ggplot2::element>[i] <- value`"), I("`S7::props(<ggplot2::element>)[i] <- value`"))
360360 S7 :: props(x ) <- `[<-`(S7 :: props(x ), i , value )
361361 x
362362}
363363
364364# ' @export
365365`[[<-.ggplot2::element` <- function (x , i , value ) {
366- # deprecate_soft0("4.0 .0", I("`<ggplot2::element>[[i]] <- value`"), I("S7::prop(<ggplot2::element>, i) <- value"))
366+ # deprecate_soft0("4.1 .0", I("`<ggplot2::element>[[i]] <- value`"), I("S7::prop(<ggplot2::element>, i) <- value"))
367367 S7 :: props(x ) <- `[[<-`(S7 :: props(x ), i , value )
368368 x
369369}
0 commit comments