From e7cda2715d028623d41c90d5d275ba96c9e1560a Mon Sep 17 00:00:00 2001
From: gowerc <craig.gower-page@roche.com>
Date: Wed, 19 Jun 2024 15:43:32 +0100
Subject: [PATCH] fixed numchains

---
 R/JointModelSamples.R                          | 2 +-
 tests/testthat/_snaps/JointModelSamples.md     | 2 +-
 tests/testthat/_snaps/LongitudinalQuantiles.md | 4 ++--
 tests/testthat/_snaps/SurvivalQuantities.md    | 4 ++--
 tests/testthat/helper-example_data.R           | 2 +-
 5 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/R/JointModelSamples.R b/R/JointModelSamples.R
index 86e27287..9b6ed1dc 100644
--- a/R/JointModelSamples.R
+++ b/R/JointModelSamples.R
@@ -104,7 +104,7 @@ as_print_string.JointModelSamples <- function(object, indent = 1, ...) {
     sprintf(
         paste(template_padded, collapse = "\n"),
         as.CmdStanMCMC(object)$metadata()$iter_sampling,
-        as.CmdStanMCMC(object)$metadata()$num_chains
+        as.CmdStanMCMC(object)$num_chains()
     )
 }
 
diff --git a/tests/testthat/_snaps/JointModelSamples.md b/tests/testthat/_snaps/JointModelSamples.md
index 6e4b21b1..c994eddb 100644
--- a/tests/testthat/_snaps/JointModelSamples.md
+++ b/tests/testthat/_snaps/JointModelSamples.md
@@ -7,7 +7,7 @@
          JointModelSamples Object with:
         
             # of samples per chain = 100
-            # of chains            = 1
+            # of chains            = 2
         
             Variables:
                 Ypred[2800]
diff --git a/tests/testthat/_snaps/LongitudinalQuantiles.md b/tests/testthat/_snaps/LongitudinalQuantiles.md
index c8c88f7a..7ca7aa7a 100644
--- a/tests/testthat/_snaps/LongitudinalQuantiles.md
+++ b/tests/testthat/_snaps/LongitudinalQuantiles.md
@@ -10,7 +10,7 @@
     Output
       
        LongitudinalQuantities Object:
-          # of samples    = 100
+          # of samples    = 200
           # of quantities = 44 
       
 
@@ -24,7 +24,7 @@
     Output
       
        LongitudinalQuantities Object:
-          # of samples    = 100
+          # of samples    = 200
           # of quantities = 402 
       
 
diff --git a/tests/testthat/_snaps/SurvivalQuantities.md b/tests/testthat/_snaps/SurvivalQuantities.md
index 625d2569..5225b555 100644
--- a/tests/testthat/_snaps/SurvivalQuantities.md
+++ b/tests/testthat/_snaps/SurvivalQuantities.md
@@ -12,7 +12,7 @@
     Output
       
        SurvivalQuantities Object:
-          # of samples    = 100
+          # of samples    = 200
           # of quantities = 33
           Type            = surv 
       
@@ -27,7 +27,7 @@
     Output
       
        SurvivalQuantities Object:
-          # of samples    = 100
+          # of samples    = 200
           # of quantities = 4400
           Type            = loghaz 
       
diff --git a/tests/testthat/helper-example_data.R b/tests/testthat/helper-example_data.R
index 076ad6f3..d87ac619 100644
--- a/tests/testthat/helper-example_data.R
+++ b/tests/testthat/helper-example_data.R
@@ -67,7 +67,7 @@ ensure_test_data_1 <- function() {
             data = jdat,
             iter_sampling = 100,
             iter_warmup = 150,
-            chains = 1,
+            chains = 2,
             refresh = 0,
             parallel_chains = 1
         )