#' Run the GLM-Based Rasch Analysis Suite
#'
#' This function launches the interactive Shiny application for Rasch analysis
#' using the GLM framework.
#'
#' @export
#' @importFrom shiny runApp
#' @importFrom bslib bs_theme
#' @importFrom DT datatable
#' @importFrom readxl read_excel
#' @importFrom haven read_sav
#' @return This function launches the Shiny app and does not return a value.
#'
runGLMRaschSuite <- function() {
  if (FALSE) {
    readxl::read_excel(NULL)
    haven::read_sav(NULL)
    bslib::bs_theme()
    DT::datatable(NULL)
  }

  appDir <- system.file("shiny-examples", "GLMRaschSuite", package = "GLMBasedRaschEstimation")

  if (appDir == "") {
    stop("Could not find the application directory. Please try re-installing the package.", call. = FALSE)
  }

  shiny::runApp(appDir, display.mode = "normal")
}
