From: Naeem Model <me@nmode.ca>
Date: Sat, 24 Jun 2023 23:45:07 +0000 (+0000)
Subject: Create entrypoint for shiny app
X-Git-Url: https://git.nmode.ca/Rnaught/commitdiff_plain/9a423db7a6499d587ec2d7f02accea5baf98a8e1?ds=sidebyside

Create entrypoint for shiny app
---

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