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

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

library(shiny)

ui <- fluidPage(
  # 添加一个文件上传按钮
  fileInput("data_file", "上传数据文件"),
  
  # 添加一个选择颜色的下拉菜单
  uiOutput("color_dropdown")
)

server <- function(input, output) {
  # 从上传的数据中获取数据长度
  data_length <- reactive({
    req(input$data_file)  # 确保文件已上传
    
    # 根据数据文件读取数据并计算长度
    data <- read.csv(input$data_file$datapath)
    nrow(data)
  })
  
  # 根据数据长度生成多个色板选项
  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)