ui = navbarPage(title = 'Table 3.4',
collapsible = T,
position = 'fixed-top',
theme = SMRD::add_theme(getShinyOption('theme')),
header = SMRD::add_css(),
footer = SMRD::add_logo(),
tabPanel('Data Set',DT::dataTableOutput("table.shock1", height = "80%")),
tabPanel('Data Set',DT::dataTableOutput("table.shock2", height = "80%")))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.