shiny根据数据的长度设置多个色板

shiny根据数据的长度设置多个色板

library(shiny)
library(colourpicker)
ui <- fluidPage(
  # 添加一个选择颜色的下拉菜单
  uiOutput("color_dropdown")
)

server <- function(input, output) {
  # 数据长度
  data_length <- reactive({
    length(c("数据1", "数据2", "数据3", "数据4", "数据5"))  # 这里只是一个示例,可以是你自己的数据长度
  })
  
  # 根据数据长度生成多个色板选项
  output$color_dropdown <- renderUI({
    color_palette <- c("orange", "green", "blue", "purple", "pink")
    num_colors <- data_length()
    
    dropdown_list <- lapply(1:num_colors, function(i) {
      colourInput(paste0("col_", i), paste0("选择颜色 ", i), color_palette[i])
    })
    
    tagList(dropdown_list)
  })
}

shinyApp(ui, server)
相关推荐
King.6246 分钟前
sql工具!好用!爱用!
大数据·数据库·人工智能·sql·学习
一只小菜鸡..1 小时前
241125学习日志——[CSDIY] [InternStudio] 大模型训练营 [17]
学习
许小禾上学记1 小时前
Python 爬虫从入门到(不)入狱学习笔记
爬虫·python·学习
惠惠软件2 小时前
误删了照片,甚至对存储卡进行了格式化 都可以找到丢失的图片,并让您恢复它们 支持一键恢复或永久删除丢失的照片、视频、音乐、文档等-供大家学习研究参考
学习
xnuscd2 小时前
els学习
运维·学习·jenkins
Qhumaing3 小时前
C/C++学习-引用
c语言·c++·学习
thesky1234563 小时前
活着就好20241126
学习·算法
cwtlw3 小时前
java学习记录12
java·开发语言·学习
美式小田4 小时前
Altium Designer学习笔记 21.PCB板框的评估及叠层设置
笔记·嵌入式硬件·学习·ad