R/shiny_app.R

In ALSBinary: 'ALS-Binary': Allele Size to Binary Converter

#' Run ALS-Binary Shiny App
#'
#' @return A \code{shiny.appobj} object representing the Shiny application.
#' @importFrom DT renderDT datatable
#' @importFrom readr read_delim
#' @importFrom readxl read_excel
#' @export
runALSBinaryApp <- function() {
  app_dir <- system.file("app", package = "ALSBinary")
  if (app_dir == "") {
    stop("Could not find app directory. Try re-installing `ALSBinary`.", call. = FALSE)
  }
  
  # This creates the app object without blocking the R console or test runner
  shiny::shinyAppDir(app_dir)
}

#' Alias: run_app
#'
#' @return A \code{shiny.appobj} object representing the Shiny application.
#' @export
run_app <- function() {
  runALSBinaryApp()
}

#' Alias: als_binary
#'
#' @return A \code{shiny.appobj} object representing the Shiny application.
#' @export
als_binary <- function() {
  runALSBinaryApp()
}