View source: R/input-spectrum.R
updateSpectrumInput | R Documentation |
Change the value of a spectrum input on the client
updateSpectrumInput(session = getDefaultReactiveDomain(), inputId, selected)
session |
The session object passed to function given to shinyServer. |
inputId |
The id of the input object. |
selected |
The value to select. |
if (interactive()) {
library("shiny")
library("shinyWidgets")
ui <- fluidPage(
tags$h1("Spectrum color picker"),
br(),
spectrumInput(
inputId = "myColor",
label = "Pick a color:",
choices = list(
list('black', 'white', 'blanchedalmond', 'steelblue', 'forestgreen')
)
),
verbatimTextOutput(outputId = "res"),
radioButtons(
inputId = "update", label = "Update:",
choices = c(
'black', 'white', 'blanchedalmond', 'steelblue', 'forestgreen'
)
)
)
server <- function(input, output, session) {
output$res <- renderPrint(input$myColor)
observeEvent(input$update, {
updateSpectrumInput(session = session, inputId = "myColor", selected = input$update)
}, ignoreInit = TRUE)
}
shinyApp(ui, server)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.