Kolory reaktywne w kolorze błyszczącym

Question

Czy można używać widgetu wyboru do wyświetlania palety kolorów dla reaktywnego wybierania kolorów? Chciałbym pozwolić użytkownikowi wybrać kolor (y) dla wykresu tworzonego przez błyszczącą aplikację.

Answer 1

Dla każdego, kto tu przyjeżdża szukając próbnika kolorów, poprzednia odpowiedź z użyciem shinysky jest nieaktualna (próbnik kolorów z został przeniesiony do pakietu, który nie jest w trakcie konserwacji).

Dostępny jest inny próbnik kolorów dla lśnienia w pakiecie shinyjs.

library(ggplot2) 
library(shiny) 
library(shinyjs) 

runApp(shinyApp(
    ui = fluidPage(
    colourInput("col", "Select colour", "grey"), 
    plotOutput("plot") 
), 
    server = function(input, output, session) { 
    output$plot <- renderPlot({ 
     ggplot(cars, aes(speed, dist)) + 
     geom_point() + 
     theme(panel.background = element_rect(fill = input$col)) 
    }) 
    } 
)) 

Disclaimer: Jestem autorem tego pakietu.

Answer 2

Pakiet shinysky ma colorpicker które można wykorzystać z shiny:

require(shinysky) 
require(shiny) 

runApp(list(
    ui = bootstrapPage(
    jscolorInput("colorid"), 
    uiOutput('myPanel'), 
    plotOutput('plot') 
), 
    server = function(input, output) { 
    output$myPanel <- renderUI({ 
     mystyle <- ifelse(is.null(input$colorid), "ffffff", input$colorid) 
     inputPanel(
     numericInput('n', 'Number of obs', 100) 
     , style = paste0("background-color:#", mystyle, ";") 
    ) 
    }) 
    output$plot <- renderPlot({ hist(runif(input$n)) }) 
    } 
)) 

tej chwili nie na CRAN więc trzeba będzie zainstalować go poprzez devtools szczegóły są https://github.com/AnalytixWare/ShinySky