Reexport %||% from base on newer R versions

lionel- · lionel- · commit 914572890f0a · 2024-01-09T10:56:49.000+01:00
diff --git a/NEWS.md b/NEWS.md
@@ -2,6 +2,9 @@
 
 * Fix for CRAN checks.
 
+* `%||%` is now reexported from base on newer R versions. This avoids
+  conflict messages when attaching or importing rlang.
+
 
 # rlang 1.1.2
 
diff --git a/R/operators.R b/R/operators.R
@@ -13,6 +13,12 @@
 `%||%` <- function(x, y) {
   if (is_null(x)) y else x
 }
+
+# Reexport from base on newer versions of R to avoid conflict messages
+if (exists("%||%", envir = baseenv())) {
+  `%||%` <- get("%||%", envir = baseenv())
+}
+
 `%|0|%` <- function(x, y) {
   if (!length(x)) y else x
 }

Original file line number	Diff line number	Diff line change
`@@ -13,6 +13,12 @@`
`13`	`13`	`%\|\|%` <- function(x, y) {
`14`	`14`	`if (is_null(x)) y else x`
`15`	`15`	`}`
	`16`	`+`
	`17`	`+# Reexport from base on newer versions of R to avoid conflict messages`
	`18`	`+if (exists("%\|\|%", envir = baseenv())) {`
	`19`	+ `%\|\|%` <- get("%\|\|%", envir = baseenv())
	`20`	`+}`
	`21`	`+`
`16`	`22`	`%\|0\|%` <- function(x, y) {
`17`	`23`	`if (!length(x)) y else x`
`18`	`24`	`}`