Create entrypoint for shiny app

diff --git a/R/app.R b/R/app.R
new file mode 100644 (file)
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)
+}