R/app.R


1
2
3
4
5
6
7
8
9

#' Launch the Rnaught Web Application
#'
#' @export
app <- function() {
  if (!requireNamespace("shiny", quietly = TRUE))
    stop("The package 'shiny' must be installed to launch the Rnaught web application.")

  shiny::shinyApp(ui, server)
}