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)
相关推荐
我的golang之路果然有问题34 分钟前
快速了解redis,个人笔记
数据库·经验分享·redis·笔记·学习·缓存·内存
Angindem2 小时前
SpringClound 微服务分布式Nacos学习笔记
分布式·学习·微服务
虾球xz2 小时前
游戏引擎学习第244天: 完成异步纹理下载
c++·学习·游戏引擎
BOB-wangbaohai2 小时前
Flowable7.x学习笔记(十四)查看部署流程Bpmn2.0-xml
xml·笔记·学习
先生沉默先3 小时前
c#接口_抽象类_多态学习
开发语言·学习·c#
豆芽8193 小时前
图解YOLO(You Only Look Once)目标检测(v1-v5)
人工智能·深度学习·学习·yolo·目标检测·计算机视觉
友善啊,朋友3 小时前
《普通逻辑》学习记录——性质命题及其推理
学习·逻辑学
Gsen28194 小时前
AI大模型从0到1记录学习 数据结构和算法 day20
数据结构·学习·算法·生成对抗网络·目标跟踪·语言模型·知识图谱
能来帮帮蒟蒻吗5 小时前
Docker安装(Ubuntu22版)
笔记·学习·spring cloud·docker·容器
每次的天空6 小时前
Android学习总结之Glide篇(缓存和生命周期)
android·学习·glide