R/launch_app.R

In ConverTier2: Conversion of Tiered Assessment Responses to Polytomous Scores

#' Launch ConverTier2 Shiny Application
#'
#' Launches the graphical user interface for ConverTier2.
#'
#' @return This function launches the Shiny application and
#' does not return a value.
#'
#' @importFrom shiny runApp
#'
#' @export
launch_app <- function() {

  app_dir <- system.file(
    "shiny",
    package = "ConverTier2"
  )

  if (!nzchar(app_dir)) {
    stop(
      "Shiny application tidak ditemukan. ",
      "Pastikan package ConverTier2 telah diinstal dengan benar."
    )
  }

  shiny::runApp(app_dir)
}