R/app_server.R

In dwassarman/cellpanelr: Analyze Data from Cell Line Panels

#' The application server-side
#'
#' @param input,output,session Internal parameters for {shiny}.
#'     DO NOT REMOVE.
#' @import shiny
#' @noRd
app_server <- function(input, output, session) {
  # Your application server logic
  rv <- reactiveValues()
  # Contents of rv:
  ## active_tab: name of active tab in the main navbar
  ## cell_col: name of cell line column
  ## response_col: name of response column
  ## data: uploaded data with columns cell line, response, "depmap_id"

  # Module server functions
  mod_home_server("home_1", rv)
  mod_upload_single_server("upload_single_1", rv)
  mod_annotations_server("annotations_1", rv)
  mod_expression_server("expression_1", rv)
  mod_mutations_server("mutations_1", rv)

  # Navigate main tabs via wizard
  # Initialize on the home tab
  rv$active_tab <- reactive("Home")

  observe({
    updateNavbarPage(session, "main_navbar", selected = rv$active_tab())
  })

  # Help button dialog within Analyze tab
  observe(dataset_help_message()) %>% bindEvent(input$dataset_help)

  # Set ggplot theme
  ggplot2::theme_set(ggplot2::theme_bw())
}