try to fix issue #1650

paul-buerkner · Apr 30, 2024 · 7068d77 · 7068d77
1 parent 98df56d
commit 7068d77
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/backends.R b/R/backends.R
@@ -799,6 +799,9 @@ read_csv_as_stanfit <- function(files, variables = NULL, sampler_diagnostics = N
     diagnostics <- as.data.frame(matrix(nrow = nrow(samples), ncol = 0))
   }
 
+  # some diagnostics may be missing in the output depending on the algorithm
+  rstan_diagn_order <- intersect(rstan_diagn_order, names(diagnostics))
+
   # convert to regular data.frame
   samples <- as.data.frame(samples)
   chain_ids <- samples$.chain