add some drop=FALSE

ecmerkle · Dec 21, 2023 · 72fd52d · 72fd52d
1 parent d892348
commit 72fd52d
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/blav_object_inspect.R b/R/blav_object_inspect.R
@@ -89,7 +89,7 @@ blavInspect <- function(blavobject, what, ...) {
             pt$free[pt$op == ":="] <- max(pt$free, na.rm = TRUE) + 1:sum(pt$op == ":=")
             labs <- lav_partable_labels(pt, type = "free")
             draws <- make_mcmc(blavobject@external$mcmcout)
-            draws <- lapply(draws, function(x) mcmc(x[,idx]))
+            draws <- lapply(draws, function(x) mcmc(x[, idx, drop = FALSE]))
             draws <- mcmc.list(draws)
             if(what == "hpd"){
                 pct <- .95

diff --git a/R/blav_utils.R b/R/blav_utils.R
@@ -236,7 +236,7 @@ make_mcmc <- function(mcmcout, stanlvs = NULL){
     lavmcmc <- as.array(mcmcout)
     lavmcmc <- lapply(seq(dim(lavmcmc)[2]), function(x) lavmcmc[,x,])
     reord <- match(rownames(tmpsumm$summary), colnames(lavmcmc[[1]]))
-    lavmcmc <- lapply(lavmcmc, function(x) x[,reord])
+    lavmcmc <- lapply(lavmcmc, function(x) x[, reord, drop = FALSE])
 
     if(is.array(stanlvs)){
       stanlvs <- lapply(seq(dim(stanlvs)[2]), function(x) stanlvs[,x,])