improve plot labeling

Author: ecmerkle

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: blavaan
 Title: Bayesian Latent Variable Analysis
-Version: 0.5-10
+Version: 0.5-10.1386
 Authors@R: c(person(given = "Edgar", family = "Merkle",
                     role = c("aut", "cre"),
                     email = "merklee@missouri.edu",

NEWS.md

@@ -4,6 +4,9 @@
 
 * Bug fixes and internal improvements.
 
+## Bugs/glitches:
+* plot() does not display certain level 2 parameters in two-level models.
+
 # Version 0.5-9
 ## New features
 * This release contains bug fixes and internal improvements to how model covariance matrices are handled.

R/blav_object_methods.R

@@ -284,12 +284,8 @@ plot.blavaan <- function(x, pars=NULL, plot.type="trace", showplot=TRUE, ...){
         parnums <- x@ParTable$stanpnum[match(pars, x@ParTable$free)]
         samps <- samps[, , parnums, drop = FALSE]
     }
-    if(blavInspect(x, 'ngroups') == 1L){
-        dimnames(samps)[[3]] <- with(x@ParTable, paste0(lhs,op,rhs)[match(pars, free)])
-    } else {
-        dimnames(samps)[[3]] <- with(x@ParTable, paste0(lhs,op,rhs,".g",group)[match(pars, free)])
-    }
-
+    dimnames(samps)[[3]] <- with(x@ParTable, lav_partable_labels(x@ParTable, type = "user")[match(pars, free)])
+  
     plfun <- get(paste0("mcmc_", plot.type), asNamespace("bayesplot"))
 
     pl <- do.call(plfun, c(list(x = samps), list(...)))