Fix for dev testthat (#1421)

hadley · web-flow · commit 0d3eca4b3f4b · 2023-04-14T12:34:19.000-05:00
Since skip functions now return NULL.
diff --git a/tests/testthat/helper-bs4_book.R b/tests/testthat/helper-bs4_book.R
@@ -1,8 +1,6 @@
-# TODO: Replace if helper in testthat gets vectorised
-# https://github.com/r-lib/testthat/issues/1398
 skip_if_bs4_book_deps_missing <- function() {
-  check <- vapply(bs4_book_deps(), skip_if_not_installed, logical(1L), USE.NAMES = FALSE)
-  invisible(check)
+  lapply(bs4_book_deps(), skip_if_not_installed)
+  invisible(TRUE)
 }
 
 local_bs4_book <- function(name = "book",
