nmode's Git Repositories - Rnaught/blob - R/app.R

   1 #' Launch the Rnaught Web Application
   2 #'
   3 #' @export
   4 app <- function() {
   5     if (!requireNamespace("shiny", quietly=TRUE))
   6         stop("The package 'shiny' must be installed to launch the Rnaught web application.")
   7     if (!requireNamespace("shinyBS", quietly=TRUE))
   8         stop("The package 'shinyBS' must be installed to launch the Rnaught web application.")
   9     if (!requireNamespace("shinyjs", quietly=TRUE))
  10         stop("The package 'shinyjs' must be installed to launch the Rnaught web application.")
  11
  12     shiny::shinyApp(ui(), server)
  13 }