inst/app/app.R


1
2
3
4
5
6
7
8
9
10
11
12
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)