add %||% operator definition

R/utils_url.R

@@ -9,3 +9,12 @@ trim_url <- function(url) {
 trim_trailing_slash <- function(url) {
   sub(pattern = "/$", replacement = "", x = url, perl = TRUE)
 }
+
+`%||%` <- function(x, y) {
+  if (is_null(x)) y else x
+}
+
+# Reexport from base on newer versions of R
+if (exists("%||%", envir = .BaseNamespaceEnv)) {
+  `%||%` <- get("%||%", envir = .BaseNamespaceEnv)
+}