fix failing test when adapt_engaged=FALSE

stan-dev · Mar 17, 2024 · 513d09e · 513d09e
1 parent c6df0af
commit 513d09e
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/args.R b/R/args.R
@@ -286,6 +286,9 @@ SampleArgs <- R6::R6Class(
       if (is.logical(self$save_metric)) {
         self$save_metric <- as.integer(self$save_metric)
       }
+      if (!self$adapt_engaged & !is.null(self$save_metric)) {
+        self$save_metric <- 0
+      }
       invisible(self)
     },
     validate = function(num_procs) {