Fix partial match list access (#429)

Closes #409
insightsengineering · Sep 27, 2024 · 48f6e70 · 48f6e70
1 parent 125bcdf
commit 48f6e70
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/R/analyse.R b/R/analyse.R
@@ -378,8 +378,8 @@ validate.analysis <- function(x, ...) {
     if (next_class %in% c("bootstrap", "rubin")) {
         nsamp <- ife(
             next_class %in% c("bootstrap"),
-            x$method$n_sample + 1,
-            x$method$n_sample
+            x$method$n_samples + 1,
+            x$method$n_samples
         )
         assert_that(
             length(x$results) == nsamp

diff --git a/tests/testthat/test-analyse.R b/tests/testthat/test-analyse.R
@@ -6,6 +6,9 @@ suppressPackageStartupMessages({
 
 test_that("basic constructions of `analysis` work as expected",{
 
+    oldopt <- getOption("warnPartialMatchDollar")
+    options(warnPartialMatchDollar = TRUE)
+
     x <- as_analysis(
         results = list(
             list(p1 = list("est" = 1)),
@@ -65,6 +68,7 @@ test_that("basic constructions of `analysis` work as expected",{
     )
     expect_true(validate(x))
 
+    options(warnPartialMatchDollar = oldopt)
 })