Add %&&% operator

NAMESPACE

@@ -97,6 +97,7 @@ S3method(summary,rlang_trace)
 S3method(summary,rlang_warning)
 export("!!!")
 export("!!")
+export("%&&%")
 export("%<~%")
 export("%@%")
 export("%@%<-")

R/operators.R

@@ -19,6 +19,22 @@ if (exists("%||%", envir = baseenv())) {
   `%||%` <- get("%||%", envir = baseenv())
 }
 
+#' Default value for non-`NULL`
+#'
+#' This infix operator is the conceptual opposite of %||%, providing a fallback
+#' only if x is defined.
+#'
+#' @param x,y If `x` is NULL, will return `x`; otherwise returns `y`.
+#' @export
+#' @name op-null-continuation
+#' @seealso [op-null-default]
+#' @examples
+#' 1 %&&% 2
+#' NULL %&&% 2
+`%&&%` <- function(x, y) {
+  if (!is_null(x)) y else x
+}
+
 `%|0|%` <- function(x, y) {
   if (!length(x)) y else x
 }

_pkgdown.yml

@@ -336,5 +336,6 @@ reference:
   - subtitle: Operators
     contents:
       - "`%||%`"
+      - "`%&&%`"
       - "`%|%`"
       - "`%@%`"

tests/testthat/test-operators.R

@@ -77,3 +77,9 @@ test_that("%@% works with S4 objects (#207)", {
   expect_identical(fievel@name, "Bernard")
   expect_identical(fievel@species, "MOUSE")
 })
+
+test_that("%&&% works", {
+  expect_null(NULL %&&% 2)
+  expect_null(1 %&&% NULL)
+  expect_equal(1 %&&% 2, 2)
+})