@@ -331,39 +331,39 @@ rel <- function(x) {
331
331
332
332
# ' @export
333
333
`$.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`"))
335
335
`[[`(S7 :: props(x ), i )
336
336
}
337
337
338
338
# ' @export
339
339
`[.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)`"))
341
341
`[`(S7 :: props(x ), i )
342
342
}
343
343
344
344
# ' @export
345
345
`[[.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)`"))
347
347
`[[`(S7 :: props(x ), i )
348
348
}
349
349
350
350
# ' @export
351
351
`$<-.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`"))
353
353
S7 :: props(x ) <- `[[<-`(S7 :: props(x ), i , value )
354
354
x
355
355
}
356
356
357
357
# ' @export
358
358
`[<-.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`"))
360
360
S7 :: props(x ) <- `[<-`(S7 :: props(x ), i , value )
361
361
x
362
362
}
363
363
364
364
# ' @export
365
365
`[[<-.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"))
367
367
S7 :: props(x ) <- `[[<-`(S7 :: props(x ), i , value )
368
368
x
369
369
}
0 commit comments