| spectrumInput {shinyWidgets} | R Documentation |
A widget to select a color within palettes, and with more options if needed.
spectrumInput(inputId, label, choices = NULL, selected = NULL, flat = FALSE, options = list(), width = NULL)
inputId |
The |
label |
Display label for the control, or |
choices |
List of colors to display in the menu. |
selected |
The initially selected value. |
flat |
Display the menu inline. |
options |
Additional options to pass to spectrum, possible values are described here : https://bgrins.github.io/spectrum/#options. |
width |
The width of the input, e.g. |
The selected color in Hex format server-side
## Not run:
if (interactive()) {
library("shiny")
library("shinyWidgets")
library("RColorBrewer")
ui <- fluidPage(
tags$h1("Spectrum color picker"),
br(),
spectrumInput(
inputId = "myColor",
label = "Pick a color:",
choices = list(
list('black', 'white', 'blanchedalmond', 'steelblue', 'forestgreen'),
as.list(brewer.pal(n = 9, name = "Blues")),
as.list(brewer.pal(n = 9, name = "Greens")),
as.list(brewer.pal(n = 11, name = "Spectral")),
as.list(brewer.pal(n = 8, name = "Dark2"))
),
options = list(`toggle-palette-more-text` = "Show more")
),
verbatimTextOutput(outputId = "res")
)
server <- function(input, output, session) {
output$res <- renderPrint(input$myColor)
}
shinyApp(ui, server)
}
## End(Not run)