Reexport %||% from base on newer R versions

r-lib · Jan 9, 2024 · 58ed5b1 · 58ed5b1
1 parent 8797f5b
commit 58ed5b1
Showing 1 changed file with 6 additions and 0 deletions.
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
 }