fix get_model_code for CmdStanMCMC objects, run-extended

ropensci · Aug 13, 2024 · 53c1bf0 · 53c1bf0
1 parent 60b1564
commit 53c1bf0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/stan_utilities.R b/R/stan_utilities.R
@@ -226,7 +226,7 @@ get_model_code.stanfit <- function(x) {
 #' @keywords internal
 #' @export
 get_model_code.CmdStanMCMC <- function(x) {
-  x$code()
+  paste0(x$code(), collapse = "\n")
 }
 
 #' @rdname get_model_code