R/app_server.R

In Stefan1896/Company_Financials: Company Financials of S&P 500 companies

#' The application server-side
#'
#' @param input,output,session Internal parameters for {shiny}.
#'     DO NOT REMOVE.
#' @import shiny
#' @importFROM janitor make_clean_names
#' @noRd
app_server <- function(input, output, session) {
  selected_variable <- reactive(janitor::make_clean_names(input$variable))
  mod_tab_one_server("tab_one_1", selected_variable)
  mod_tab_two_server("tab_two_1", selected_variable)
}