theme_selector | R Documentation |
Themes changer dropdown
theme_selector(input_id = "theme", label = "Choose theme")
input_id |
Id of dropdown. |
label |
Dropdown label. |
if (interactive()) {
library(shiny)
library(shiny.semantic)
ui <- semanticPage(
theme = "superhero",
actionButton("action_button", "Press Me!"),
textOutput("button_output"),
theme_selector(),
textOutput("theme")
)
server <- function(input, output, session) {
output$button_output <- renderText(as.character(input$action_button))
output$theme <- renderText(as.character(input$theme))
}
shinyApp(ui, server)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.