library(shiny)
ui <- navbarPage(
theme = mayoshiny::mayoshinytheme(),
title = div(
img(
src = "mayoshinythemes/images/logo_white.png",
class = "brand-logo"
),
"App Title"
),
tabPanel(
"Bootstrap Components",
includeHTML(system.file("bootstrap_demo.html", package = "mayotheme"))
),
tabPanel(
"Loader",
plotOutput("demo_loader") %>% mayo_loader()
),
tabPanel("DISCLAIMER", mayoshiny::disclaimer())
)
server <- function(input, output) {
}
# Run the application
shinyApp(ui = ui, server = server)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.