fix failing test

stan-dev · Dec 13, 2023 · 9769e8c · 9769e8c
1 parent b9f2728
commit 9769e8c
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/R/fit.R b/R/fit.R
@@ -457,7 +457,7 @@ CmdStanFit$set("public", name = "grad_log_prob", value = grad_log_prob)
 #'   [unconstrain_variables()], [unconstrain_draws()], [variable_skeleton()],
 #'   [hessian()]
 #'
-hessian <- function(unconstrained_variables, jacobian = TRUE, jacobian_adjustment = TRUE) {
+hessian <- function(unconstrained_variables, jacobian = TRUE, jacobian_adjustment = NULL) {
   if (!is.null(jacobian_adjustment)) {
     warning("'jacobian_adjustment' is deprecated. Please use 'jacobian' instead.", call. = FALSE)
     jacobian <- jacobian_adjustment

diff --git a/man/fit-method-hessian.Rd b/man/fit-method-hessian.Rd
diff --git a/tests/testthat/test-model-methods.R b/tests/testthat/test-model-methods.R
@@ -3,7 +3,7 @@ context("model-methods")
 set_cmdstan_path()
 mod <- cmdstan_model(testing_stan_file("bernoulli_log_lik"), force_recompile = TRUE)
 data_list <- testing_data("bernoulli")
-fit <- mod$sample(data = data_list, chains = 1)
+fit <- mod$sample(data = data_list, chains = 1, refresh = 0)
 
 test_that("Methods error if not compiled", {
   skip_if(os_is_wsl())