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.