From 9a423db7a6499d587ec2d7f02accea5baf98a8e1 Mon Sep 17 00:00:00 2001 From: Naeem Model Date: Sat, 24 Jun 2023 23:45:07 +0000 Subject: Create entrypoint for shiny app --- R/app.R | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 R/app.R diff --git a/R/app.R b/R/app.R new file mode 100644 index 0000000..8048fa4 --- /dev/null +++ b/R/app.R @@ -0,0 +1,13 @@ +#' 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.") + if (!requireNamespace("shinyBS", quietly=TRUE)) + stop("The package 'shinyBS' must be installed to launch the Rnaught web application.") + if (!requireNamespace("shinyjs", quietly=TRUE)) + stop("The package 'shinyjs' must be installed to launch the Rnaught web application.") + + shiny::shinyApp(ui(), server) +} -- cgit v1.2.3