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)
}
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.