server <- shinyServer(function(session, input, output) {
global <- get_global()
openTab <- reactiveVal()
observe({ openTab(input$navbar) })
table_vars <- callModule(module=table_panel, id="Table", datasets=global$datasets, open_tab=openTab)
callModule(module=table_vis, id="Table", table_vars=table_vars)
enrich_vars <- callModule(enrichment_server, id="Enrichment", table_vars=table_vars)
callModule(
module=enrichment_panel,
id="Enrichment",
dataset=input$dataset,
enrich_vals=enrich_vars
)
callModule(
module=multivarvis_panel,
id="MultivarVis",
table_vars=table_vars,
datasets=global$datasets
)
callModule(
module=single_feature_panel,
id="SingleFeature",
table_vars=table_vars,
datasets=global$datasets,
query_proteins=global$query_proteins,
search_strings=global$search_strings
)
callModule(
module=about_panel,
id="About/Help"
)
observeEvent(openTab(), {
updateTabsetPanel(session, "navbar", openTab())
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.