avoid reference to bsam for next release (unavailable repo)

Author: ecmerkle

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: blavaan
 Title: Bayesian Latent Variable Analysis
-Version: 0.5-4.1280
+Version: 0.5-4.1283
 Authors@R: c(person(given = "Edgar", family = "Merkle",
                     role = c("aut", "cre"),
                     email = "[email protected]",
@@ -37,7 +37,7 @@ ByteCompile: true
 Depends: R(>= 3.5.0), methods, Rcpp(>= 0.12.15)
 Imports: stats, utils, graphics, lavaan(>= 0.6-17), coda, mnormt, nonnest2(>= 0.5-5), loo(>= 2.0), rstan(>= 2.26.0), rstantools(>= 1.5.0), RcppParallel (>= 5.0.1), bayesplot, Matrix, future.apply, tmvnsim
 LinkingTo: StanHeaders (>= 2.26.0), rstan (>= 2.26.0), BH (>= 1.69.0), Rcpp (>= 0.12.15), RcppEigen (>= 0.3.3.4.0), RcppParallel (>= 5.0.1)
-Suggests: runjags(>= 2.0.4-3), modeest(>= 2.3.3), rjags, cmdstanr, semTools, bsam, tinytest
+Suggests: runjags(>= 2.0.4-3), modeest(>= 2.3.3), rjags, cmdstanr, semTools, tinytest
 SystemRequirements: GNU make
 NeedsCompilation: yes
 URL: https://ecmerkle.github.io/blavaan/, https://github.com/ecmerkle/blavaan

R/blavaan.R

@@ -695,8 +695,8 @@ blavaan <- function(...,  # default lavaan arguments
                 fext <- ifelse(target=="jags", "jag", "stan")
                 fnm <- paste0(jagdir, "/sem.", fext)
                 if(target %in% c("stan", "cmdstan")){
-                    if(mcmcextra$dosam){
-                        cat(bsam::stanmodels$stanmarg_bsam@model_code, file = fnm)
+                    if(FALSE){#mcmcextra$dosam){
+                        #cat(bsam::stanmodels$stanmarg_bsam@model_code, file = fnm)
                     } else {
                         cat(stanmodels$stanmarg@model_code, file = fnm)
                     }
@@ -724,11 +724,11 @@ blavaan <- function(...,  # default lavaan arguments
                                            init = inits))
             } else if(target == "cmdstan"){
               rjarg <- with(jagtrans, list(data = data, init = inits))
-            } else if(mcmcextra$dosam){
-              rjarg <- with(jagtrans, list(object = bsam::stanmodels$stanmarg_bsam,
-                                           data = data,
-                                           pars = sampparms,
-                                           init = inits))
+            } else if(FALSE){#mcmcextra$dosam){
+              #rjarg <- with(jagtrans, list(object = bsam::stanmodels$stanmarg_bsam,
+              #                             data = data,
+              #                             pars = sampparms,
+              #                             init = inits))
             } else {
               rjarg <- with(jagtrans, list(object = stanmodels$stanmarg,
                                            data = data,