- added error = FALSE argument to if_else2()

---
added more `if_else2()` tests
resolves #26

R/if-else2.R

@@ -6,6 +6,7 @@
 #' [`str_detect2()`].
 #'
 #' @inherit dplyr::if_else
+#' @param error A logical value. If `TRUE`, provides an informative error message if no matches are found. 
 #' @return Where condition is `TRUE`, the matching value from `true`, where it's `FALSE` or `NA`, the matching value from `false`.
 #' @seealso [`ifelse()`] and [`dplyr::if_else()`].
 #' @export
@@ -34,8 +35,8 @@
 #' dplyr::mutate(data,
 #'   x3 = dplyr::if_else(str_detect2(y, "x is false"), FALSE, x)
 #' )
-if_else2 <- function(condition, true, false) {
-  if (!any(condition)) {
+if_else2 <- function(condition, true, false, error = FALSE) {
+  if (!any(condition) & error == TRUE) {
     stop("No matches found. Did not make any replacements.")
   }
   dplyr::if_else(condition, true, false, missing = false)

tests/testthat/test-if-else2.R

@@ -28,10 +28,26 @@ test_that("works with lists", {
   )
 })
 
-test_that("throws an informative error when no matches are found", {
+test_that("throws an informative error when error = TRUE and no matches are found", {
   x <- c(1, 2, 3, 4, 5)
   expect_error(
-    if_else2(x < 0, 0, x),
+    if_else2(x < 0, 0, x, error = TRUE),
     "No matches found. Did not make any replacements."
   )
 })
+
+test_that("doesn't throws an informative error when error = TRUE and matches are found", {
+  x <- c(-1, 2, 3, 4, 5)
+  expect_equal(
+    if_else2(x < 0, 0, x, error = TRUE),
+    c(0, 2, 3, 4, 5)
+  )
+})
+
+test_that("doesn't throw an informative error when error = FALSE (the default) and no matches are found", {
+  x <- c(1, 2, 3, 4, 5)
+  expect_equal(
+    if_else2(x < 0, 0, x),
+    x
+  )
+})