解决方法
对于那些来这里寻找颜色选择器的人来说,之前使用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))
})
}
))
免责声明：我是这个包的作者.
