fix missing drop = FALSE in nuts_params.CmdStanMCMC

utkarshpawade · utkarshpawade · commit c1dbb10cd9e9 · 2026-04-09T00:30:52.000+05:30
diff --git a/R/bayesplot-extractors.R b/R/bayesplot-extractors.R
@@ -175,7 +175,7 @@ nuts_params.list <- function(object, pars = NULL, ...) {
 nuts_params.CmdStanMCMC <- function(object, pars = NULL, ...) {
   arr <- object$sampler_diagnostics()
   if (!is.null(pars)) {
-    arr <- arr[,, pars]
+    arr <- arr[,, pars, drop = FALSE]
   }
   out <- reshape2::melt(arr)
   colnames(out)[colnames(out) == "variable"] <- "parameter"

Original file line number	Diff line number	Diff line change
`@@ -175,7 +175,7 @@ nuts_params.list <- function(object, pars = NULL, ...) {`
`175`	`175`	`nuts_params.CmdStanMCMC <- function(object, pars = NULL, ...) {`
`176`	`176`	`arr <- object$sampler_diagnostics()`
`177`	`177`	`if (!is.null(pars)) {`
`178`		`- arr <- arr[,, pars]`
	`178`	`+ arr <- arr[,, pars, drop = FALSE]`
`179`	`179`	`}`
`180`	`180`	`out <- reshape2::melt(arr)`
`181`	`181`	`colnames(out)[colnames(out) == "variable"] <- "parameter"`