R: Palette Color Picker with Spectrum Library

spectrumInput {shinyWidgets} | R Documentation

## Palette Color Picker with Spectrum Library

### Description

A widget to select a color within palettes, and with more options if needed.

### Usage

    spectrumInput(inputId, label, choices = NULL, selected = NULL,
      flat = FALSE, options = list(), width = NULL)

### Arguments

`inputId` | The `input` slot that will be used to access the value.
`label` | Display label for the control, or `NULL` for no label.
`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. `400px`, or `100%`.

### Value

The selected color in Hex format server-side

### Examples

    ## 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)

[Package shinyWidgets version 0.4.3 Index]