| updateColourInput | R Documentation | 
Change the value of a colour input on the client.
updateColourInput(
  session,
  inputId,
  label = NULL,
  value = NULL,
  showColour = NULL,
  palette = NULL,
  allowedCols = NULL,
  allowTransparent = NULL,
  returnName = NULL,
  closeOnClick = NULL
)
| session | The  | 
| inputId | The id of the colour input object. | 
| label | The label to set for the input object. | 
| value | The value to set for the input object. | 
| showColour | Whether to show the chosen colour as text inside the input, as the background colour of the input, or both (default). | 
| palette | The type of colour palette to allow the user to select colours
from.  | 
| allowedCols | A list of colours that the user can choose from. Only
applicable when  | 
| allowTransparent | If  | 
| returnName | If  | 
| closeOnClick | If  | 
The update function sends a message to the client, telling it to change
the settings of a colour input object.
This function works similarly to the update functions provided by shiny.
Any argument with NULL values will be ignored.
See https://daattali.com/shiny/colourInput/ for a live demo.
colourInput
if (interactive()) {
  library(shiny)
  shinyApp(
    ui = fluidPage(
      div("Selected colour:", textOutput("value", inline = TRUE)),
      colourInput("col", "Choose colour", "red"),
      h3("Update colour input"),
      textInput("text", "New colour: (colour name or HEX value)"),
      selectInput("showColour", "Show colour",
        c("both", "text", "background")),
      checkboxInput("allowTransparent", "Allow transparent", FALSE),
      checkboxInput("returnName", "Return R colour name", FALSE),
      actionButton("btn", "Update")
    ),
    server = function(input, output, session) {
      observeEvent(input$btn, {
        updateColourInput(session, "col",
          value = input$text, showColour = input$showColour,
          allowTransparent = input$allowTransparent,
          returnName = input$returnName)
      })
      output$value <- renderText(input$col)
    }
  )
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.