backport @

teunbrand · teunbrand · commit 028068fc3590 · 2025-03-17T14:18:22.000+01:00
diff --git a/NAMESPACE b/NAMESPACE
@@ -745,6 +745,7 @@ export(xlim)
 export(ylab)
 export(ylim)
 export(zeroGrob)
+if (getRversion() < "4.3.0") importFrom("S7", "@")
 import(grid)
 import(gtable)
 import(rlang)
diff --git a/R/backports.R b/R/backports.R
@@ -15,6 +15,10 @@ if (getRversion() < "3.3") {
   backport_unit_methods <- function() {}
 }
 
+# enable usage of <S7_object>@name in package code
+#' @rawNamespace if (getRversion() < "4.3.0") importFrom("S7", "@")
+NULL
+
 on_load(backport_unit_methods())
 
 unitType <- function(x) {

Original file line number	Diff line number	Diff line change
`@@ -15,6 +15,10 @@ if (getRversion() < "3.3") {`
`15`	`15`	`backport_unit_methods <- function() {}`
`16`	`16`	`}`
`17`	`17`
	`18`	`+# enable usage of <S7_object>@name in package code`
	`19`	`+#' @rawNamespace if (getRversion() < "4.3.0") importFrom("S7", "@")`
	`20`	`+NULL`
	`21`	`+`
`18`	`22`	`on_load(backport_unit_methods())`
`19`	`23`
`20`	`24`	`unitType <- function(x) {`