R/page_study_info.R

In m-swirski/RiboCrypt: Interactive visualization in genomics

study_info_ui <- function(id, label = "study_info") {
  ns <- NS(id)
  tabPanel(title = "Studies", icon = icon("rectangle-list"),
           h2("Supported studies overview"),
           mainPanel(
             dataTableOutput(ns("metadata")) %>% shinycssloaders::withSpinner(color="#0dc5c1")
           )
  )
}

study_info_server <- function(id, all_exp) {
  moduleServer(
    id,
    function(input, output, session) {
      output$metadata <- renderDataTable(all_exp)
    }
  )
}