Revamp Shiny app

[Rnaught] / inst / app / app.R

diff --git a/inst/app/app.R b/inst/app/app.R
new file mode 100644 (file)
index 0000000..639dc87
--- /dev/null
+++ b/inst/app/app.R
@@ -0,0 +1,13 @@
+ui <- htmlTemplate("index.html")
+
+server <- function(input, output) {
+  source("scripts/data.R", local = TRUE)
+  source("scripts/estimators.R", local = TRUE)
+
+  react_values <- reactiveValues()
+
+  data_logic(input, output, react_values)
+  estimators_logic(input, output, react_values)
+}
+
+shinyApp(ui, server)