Create entrypoint for shiny app

1 files changed, 13 insertions, 0 deletions

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)
+}