inst/shiny/v1.3/overview/UI.R

In romanhaa/cerebroApp: Interactive visualization of scRNA-seq data with Cerebro

##----------------------------------------------------------------------------##
## Tab: Overview
##----------------------------------------------------------------------------##
js_code_overview_projection <- readr::read_file(
  paste0(Cerebro.options[["cerebro_root"]], "/shiny/v1.3/overview/js_projection_update_plot.js")
)

tab_overview <- tabItem(
  tabName = "overview",
  ## necessary to ensure alignment of table headers and content
  shinyjs::inlineCSS("
    #overview_details_selected_cells_table .table th {
      text-align: center;
    }
    #overview_details_selected_cells_table .dt-middle {
      vertical-align: middle;
    }
    "
  ),
  shinyjs::extendShinyjs(
    text = js_code_overview_projection,
    functions = c(
      "updatePlot2DContinuous",
      "updatePlot3DContinuous",
      "updatePlot2DCategorical",
      "updatePlot3DCategorical"
    )
  ),
  uiOutput("overview_projection_UI"),
  uiOutput("overview_selected_cells_plot_UI"),
  uiOutput("overview_selected_cells_table_UI")
)