R/shinyAssemble.R

In jhk0530/shinyAssemble: What the Package Does (One Line, Title Case)

shinyAssemble <- function() {
  appDir <- system.file("shinyAssemble", package = "shinyAssemble")
  if (appDir == "") {
    stop(
      "Could not find Directory, Try re-install",
      call. = FALSE
    )
  }

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