From dce01ac19a0298388089ce4297a44ef2aa2c4c46 Mon Sep 17 00:00:00 2001
From: Naeem Model <me@nmode.ca>
Date: Thu, 9 May 2024 20:22:45 +0000
Subject: Revamp Shiny app

---
 inst/app/app.R | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 inst/app/app.R

(limited to 'inst/app/app.R')

diff --git a/inst/app/app.R b/inst/app/app.R
new file mode 100644
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)
-- 
cgit v1.2.3