fix failing test

Author: jgabry

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

man/fit-method-hessian.Rd

@@ -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())