theme_selector: Themes changer dropdown
In shiny.semantic: Semantic UI Support for Shiny

Themes changer dropdown

1	theme_selector(input_id = "theme", label = "Choose theme")

`input_id`	Id of dropdown. `input[[input_id]]` returns the currently selected theme.
`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)
}