閃亮的活性色

Question

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

Answer 1

shinysky包裝有一個顏色選擇器，您可以使用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

Answer 2

對於來這里尋找顏色選擇器的人來說，之前使用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))
    })
  }
))

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