R/method-show.R

In INLAvaan: Approximate Bayesian Latent Variable Analysis

#' @exportS3Method print inlavaan_internal
print.inlavaan_internal <- function(x, digits = 3, ...) {
  print(round(x$coefficients, digits))
  invisible(x)
}

show_inlavaan <- function(object) {
  inlavaan_version <- object@external$inlavaan_internal$version
  lavaan_version <- object@version[1]
  class(object) <- "lavaan"
  garb <- capture.output(tmp <- show(object))
  tmp$test <- NULL
  garb <- capture.output(tmp)
  garb <- gsub("lavaan", "INLAvaan", garb)
  if (is.null(inlavaan_version)) {
    # Fits saved by older versions did not record the package version.
    inlavaan_version <- as.character(utils::packageVersion("INLAvaan"))
  }
  garb <- gsub(lavaan_version, inlavaan_version, garb, fixed = TRUE)
  cat(paste0(garb, collapse = "\n"))
  cat("\n\n")

  ## ----- Print marginal log-likelihood and ppp -------------------------------
  show_ppp <- has_test(object@external$inlavaan_internal, "ppp")

  cat(
    "Model Test (User Model):\n\n",
    sprintf("  %-38s", "Marginal log-likelihood"),
    sprintf("  %10.3f", object@Fit@test$mloglik$stat),
    "\n"
  )

  if (isTRUE(show_ppp)) {
    cat(
      sprintf("   %-38s", "PPP (Chi-square)"),
      sprintf("  %10.3f", object@Fit@test$ppp$stat),
      "\n"
    )
  }
}

#' @name show
#' @rdname INLAvaan-class
#' @aliases show,INLAvaan-method
#' @export
setMethod("show", "INLAvaan", show_inlavaan)