R/app_server.R

In risktoollib/RTLappPipe: Pipeline Take Or Pay

#' The application server-side
#'
#' @param input,output,session Internal parameters for {shiny}.
#'     DO NOT REMOVE.
#' @import shiny
#' @noRd
app_server <- function(input, output, session) {
  r <- shiny::reactiveValues()
  mod_valuation_server("valuation_ui_1", r = r)
  mod_charts_server("charts_1", r = r)
  }