🐛 Bugfix in coalesce()

Author: ThierryO

R/data_package.R

@@ -103,5 +103,5 @@ coalesce <- function(...) {
   if (!is.null(dots[[1]])) {
     return(dots[[1]])
   }
-  coalesce(dots[-1])
+  do.call(coalesce, dots[-1])
 }

tests/testthat/test_a_coalesce.R

@@ -0,0 +1,6 @@
+test_that("coalesce()", {
+  expect_equal(coalesce(), NULL)
+  expect_equal(coalesce(NULL), NULL)
+  expect_equal(coalesce(NULL, 1), 1)
+  expect_equal(coalesce(NULL, NULL, 1), 1)
+})