nmode's Git Repositories - Rnaught/blob - inst/app/app.R

   1 ui <- htmlTemplate("index.html")
   2
   3 server <- function(input, output) {
   4   source("scripts/data.R", local = TRUE)
   5   source("scripts/estimators.R", local = TRUE)
   6
   7   react_values <- reactiveValues()
   8
   9   data_logic(input, output, react_values)
  10   estimators_logic(input, output, react_values)
  11 }
  12
  13 shinyApp(ui, server)