閃亮的活性顏色

Question

是否可以使用選擇小部件來顯示用於反應性顏色選取的調色板？我想讓用戶選擇由閃亮應用創建的情節的顏色。

Answer 1

對於任何人來這裏尋找顏色選擇器，使用shinysky以前的答案是過時的（顏色選擇器從已經轉移到不在維護中的包裝上）

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

免責聲明：我這個包的作者。

Answer 2

的shinysky包有一個ColorPicker，您可以用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)) }) 
    } 
)) 

目前這不是在CRAN，所以你需要通過devtools細節來安裝它是在https://github.com/AnalytixWare/ShinySky