From 2a53c31248b1a4b5803420601166100d723dbdff Mon Sep 17 00:00:00 2001 From: Aki Vehtari Date: Mon, 23 Feb 2026 12:30:36 +0200 Subject: [PATCH 1/2] fix timing of generate_quantities --- R/run.R | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/R/run.R b/R/run.R index 9202f0d4d..a9e10458d 100644 --- a/R/run.R +++ b/R/run.R @@ -877,10 +877,15 @@ CmdStanProcs <- R6::R6Class( }, mark_proc_start = function(id) { private$proc_state_[[id]] <- 1 + private$proc_start_time_[[id]] <- as.double(Sys.time()) private$proc_output_[[id]] <- c("") invisible(self) }, mark_proc_stop = function(id) { + if (private$proc_start_time_[[id]] > 0) { + private$proc_total_time_[[id]] <- + as.double(Sys.time()) - private$proc_start_time_[[id]] + } if (private$proc_state_[[id]] == 5) { private$proc_state_[[id]] <- 6 } else { From e23569094140cb444696fc31eaa470719e850a40 Mon Sep 17 00:00:00 2001 From: Aki Vehtari Date: Wed, 25 Feb 2026 09:55:29 +0200 Subject: [PATCH 2/2] use R-side time only if CmdStan-reported timing is missing --- R/run.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/R/run.R b/R/run.R index a9e10458d..491c28fd6 100644 --- a/R/run.R +++ b/R/run.R @@ -882,7 +882,8 @@ CmdStanProcs <- R6::R6Class( invisible(self) }, mark_proc_stop = function(id) { - if (private$proc_start_time_[[id]] > 0) { + if (private$proc_start_time_[[id]] > 0 + && private$proc_total_time_[[id]] == 0) { private$proc_total_time_[[id]] <- as.double(Sys.time()) - private$proc_start_time_[[id]] }