Use requireNamespace rather than installed.packages() to check for fu…

…ture.apply
ddsjoberg · Apr 9, 2024 · f63b068 · f63b068
1 parent b24e64a
commit f63b068
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/R/test_consequences.R b/R/test_consequences.R
@@ -86,7 +86,7 @@ test_consequences_data_frame <- function(model_frame, outcome_name, outcome_type
 
   # Initial diagnostic stat calculation can be slow with large datasets,
   # and/or many models, so give the option for parallelization.
-  if (parallel && "future.apply" %in% rownames(utils::installed.packages())) {
+  if (parallel && requireNamespace("future.apply", quietly = TRUE)) {
     lapply_fun = future.apply::future_lapply
   } else {
     lapply_fun = lapply

diff --git a/tests/testthat/test-test_consequences.R b/tests/testthat/test-test_consequences.R
@@ -44,7 +44,8 @@ test_that("test_consequences() works", {
   )
 
   expect_no_error({
-    if ("future.apply" %in% rownames(utils::installed.packages())) {
+    # This test is only run if the future.apply package is installed.
+    if (requireNamespace("future.apply", quietly = TRUE)) {
       future::plan("multisession", workers = 2)
       test_consequences(formula = cancer ~ cancerpredmarker + marker,
                         data = df_binary, parallel = TRUE)