当前位置: 首页 > article >正文

shiny动态生成颜色选择器并将其用于绘图

在 Shiny 中使用 uiOutputrenderUI 动态生成 UI 控件是一种灵活的方法。结合 uiOutput(ns("colorSelectors")) 的用法,可以实现动态生成颜色选择器,并响应用户选择进行绘图或更新显示。

代码

library(shiny)
library(colourpicker)

# UI 部分
ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      uiOutput("colorSelectors"),  # 动态生成颜色选择器
      actionButton("addColor", "Add Color"),  # 增加一个颜色选择器
      actionButton("resetColors", "Reset Colors")  # 重置颜色选择器
    ),
    mainPanel(
      plotOutput("colorPlot")  # 显示动态颜色的绘图
    )
  )
)

# 服务器部分
server <- function(input, output, session) {
  # 用于存储颜色选择器的数量
  colorCount <- reactiveVal(1)  # 初始一个颜色选择器
  
  # 动态生成颜色选择器
  output$colorSelectors <- renderUI({
    lapply(1:colorCount(), function(i) {
      colourInput(
        inputId = paste0("color_", i),  # 动态 ID
        label = paste("Color", i, ":"), 
        value = "blue"
      )
    })
  })
  
  # 增加一个颜色选择器
  observeEvent(input$addColor, {
    colorCount(colorCount() + 1)  # 增加颜色选择器的计数
  })
  
  # 重置颜色选择器
  observeEvent(input$resetColors, {
    colorCount(1)  # 重置为一个颜色选择器
  })
  
  # 绘图:根据颜色选择器动态生成颜色
  output$colorPlot <- renderPlot({
    req(colorCount())  # 确保颜色选择器存在
    colors <- sapply(1:colorCount(), function(i) {
      input[[paste0("color_", i)]]
    })
    barplot(rep(1, length(colors)), col = colors, border = "white")
  })
}

# 创建 Shiny 应用
shinyApp(ui, server)

代码说明

  1. 动态生成 UI 控件

    • 使用 uiOutput 在 UI 中占位。
    • 在服务器端使用 renderUI 生成一组颜色选择器,数量由 colorCount 动态控制。
  2. 增加颜色选择器

    • 使用 observeEvent 监听按钮 addColor,每点击一次就增加一个颜色选择器。
  3. 重置颜色选择器

    • 点击 resetColors 按钮,将颜色选择器数量重置为 1。
  4. 动态绘图

    • 根据用户选择的颜色动态生成一个彩色柱状图。

效果

  • 初始时显示一个颜色选择器,默认颜色为蓝色。
  • 点击 “Add Color” 按钮,动态增加颜色选择器。
  • 选择不同的颜色后,柱状图会根据选中的颜色实时更新。
  • 点击 “Reset Colors” 按钮,颜色选择器会重置为一个。

通过 uiOutput 和动态生成控件,可以轻松构建高度动态和用户友好的 Shiny 应用界面。


http://www.kler.cn/a/411122.html

相关文章:

  • 填补覆盖空白,小型机器人让智能清洁再“净”一步!
  • 蓝桥杯每日真题 - 第21天
  • React(六)——Redux
  • 40分钟学 Go 语言高并发:【实战】并发安全的配置管理器(功能扩展)
  • Leetcode207. 课程表(HOT100)
  • [译]Elasticsearch Sequence ID实现思路及用途
  • JVM详解:垃圾回收机制
  • uniapp中使用uni-forms实现表单管理,验证表单
  • 机器学习-02HMM模型学习
  • 【计网笔记】网络层
  • 线上+线下≠新零售,6大互通诠释新零售的核心要点-亿发
  • netconf 代码架构
  • 软件测试丨Pytest 参数化与调度执行
  • JVM类加载和垃圾回收算法详解
  • 无人直播的好处
  • 【文档搜索引擎】项目核心思路,模块划分和分词的概念
  • server向浏览器发送信息-SseEmitter使用
  • 【第三方云音乐播放器SPlayer本地安装结合内网穿透打造个性化远程音乐库】
  • Rust赋能前端: 纯血前端将 Table 导出 Excel
  • 【算法】欧几里得与拓展欧几里得算法
  • 算法笔记:滑动窗口
  • 从Full-Text Search全文检索到RAG检索增强
  • 【python】数据可视化之图像处理
  • TailwindCss 总结
  • 【纪念365天】我的创作纪念日
  • CDAF / PDAF 原理 | PDAF、CDAF 和 LAAF 对比 | 图像清晰度评价指标