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)
相关推荐
茯苓gao4 小时前
STM32G4 电流环闭环
笔记·stm32·单片机·嵌入式硬件·学习
easy20205 小时前
机器学习的本质:从跑模型到真正解决问题
笔记·学习·机器学习
普蓝机器人7 小时前
AutoTrack-IR-DR200仿真导航实验详解:为高校打造的机器人学习实践平台
人工智能·学习·机器人·移动机器人·三维仿真导航
非凡ghost8 小时前
AOMEI Partition Assistant磁盘分区工具:磁盘管理的得力助手
linux·运维·前端·数据库·学习·生活·软件需求
m0_578267868 小时前
从零开始的python学习(九)P142+P143+P144+P145+P146
笔记·python·学习
非凡ghost9 小时前
简朴App(PlainApp):开源、隐私保护的手机管理工具
学习·智能手机·生活·软件需求
晨非辰9 小时前
#C语言——刷题攻略:牛客编程入门训练(十):攻克 循环控制(二),轻松拿捏!
c语言·开发语言·经验分享·学习·visual studio
有谁看见我的剑了?10 小时前
k8s-临时容器学习
学习·容器·kubernetes
七芒星202310 小时前
ResNet(详细易懂解释):残差网络的革命性突破
人工智能·pytorch·深度学习·神经网络·学习·cnn
easy202010 小时前
Kaggle项目实践——Titanic: Machine Learning from Disaster
笔记·学习·机器学习