layoutArgs <- list(width = 1, height = "100%", style = "padding-bottom: 10px; padding-right: 10px;") if (!utils$hasSets()) { do.call(bslib::layout_column_wrap, c(layoutArgs, list( bslib::card( bslib::card_header("Linked series"), bslib::card_body_fill(utils$genComponNTGraph()) ) ))) } else { navs <- lapply(utils$getFGSets(), function(s) { bslib::nav( s, bslib::card_body_fill(utils$genComponNTGraph(s)) ) }) do.call(bslib::layout_column_wrap, c(layoutArgs, list( do.call(bslib::navs_tab_card, c(list(title = "Linked series"), navs)) ))) }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.