remove rbmi library load

insightsengineering · Oct 1, 2024 · ecb2d29 · ecb2d29
1 parent db84f50
commit ecb2d29
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 3 deletions.
diff --git a/R/analyse.R b/R/analyse.R
@@ -185,9 +185,6 @@ analyse <- function(imputations, fun = ancova, delta = NULL, ..., .globals = TRU
             "..rbmi..future..extract_imputed_df"
         )
     }
-    if (is.character(.packages)) {
-        c(.packages, "rbmi")
-    }
 
     encap_analysis_fun <- function(x, ...) {
         dat2 <- ..rbmi..future..extract_imputed_df(

diff --git a/tests/testthat/test-parallel.R b/tests/testthat/test-parallel.R
@@ -312,4 +312,16 @@ test_that("parallelisation of analyse() works as expected", {
         )
     })
 
+    # Check that manual library / global specification works if using rbmi function
+    system.time({
+        plan(multisession, workers = 2)
+        ana_obj_2 <- analyse(
+            impute_obj,
+            fun = ancova,
+            vars = new_vars,
+            .globals = c("ancova"),
+            .packages = "lubridate"
+        )
+    })
+
 })