fix get_nchains, run-extended

ropensci · Jul 12, 2024 · cb99763 · cb99763
1 parent 5815d70
commit cb99763
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: dynamite
 Title: Bayesian Modeling and Causal Inference for Multivariate
     Longitudinal Data
-Version: 1.5.3
+Version: 1.5.4
 Authors@R: c(
     person("Santtu", "Tikka", email = "santtuth@gmail.com", 
            role = c("aut", "cre"), comment = c(ORCID = "0000-0003-4039-4342")),

diff --git a/R/stan_utilities.R b/R/stan_utilities.R
@@ -132,8 +132,8 @@ get_model_code <- function(x) {
 #'
 #' @inheritParams get_pars_oi
 #' @noRd
-get_num_chains <- function(x) {
-  UseMethod("get_num_chains")
+get_nchains <- function(x) {
+  UseMethod("get_nchains")
 }
 
 #' Get the algorithm used in a Stan model fit
@@ -200,11 +200,11 @@ get_model_code.CmdStanMCMC <- function(x) {
   x$code()
 }
 
-get_num_chains.stanfit <- function(x) {
+get_nchains.stanfit <- function(x) {
   x@sim$chains
 }
 
-get_num_chains.CmdStanMCMC <- function(x) {
+get_nchains.CmdStanMCMC <- function(x) {
   x$num_chains()
 }