能否在单个Shiny响应式函数中生成多个infoBox组件？

没问题呀！你完全可以通过单个响应式函数生成多个infoBox组件，只需要调整一下代码结构，让响应式函数返回一个包含多个infoBox的列表就行。下面是具体的实现方案：

基础实现示例 #

我们可以用renderUI配合uiOutput来渲染多个组件，同时把所有infoBox的参数统一放在一个列表里，方便管理：

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = "Dynamic boxes"),
  dashboardSidebar(),
  dashboardBody(
    fluidRow(
      # 用uiOutput来承载多个infoBox
      uiOutput("iboxes")
    )
  )
)

server <- function(input, output) {
  # 定义所有infoBox的参数集合，你可以按需修改这些内容
  info_box_settings <- list(
    list(title = "新增用户", value = 123, icon = icon("user-plus"), color = "light-blue"),
    list(title = "总销售额", value = "$4,567", icon = icon("dollar-sign"), color = "green"),
    list(title = "页面访问量", value = 8901, icon = icon("eye"), color = "yellow")
  )
  
  # 单个响应式函数生成所有infoBox
  output$iboxes <- renderUI({
    # 遍历参数列表，逐个生成infoBox
    lapply(info_box_settings, function(box_args) {
      infoBox(
        title = box_args$title,
        value = box_args$value,
        icon = box_args$icon,
        color = box_args$color,
        fill = TRUE # 可选，开启颜色填充效果
      )
    })
  })
}

shinyApp(ui, server)

动态更新参数的进阶版本 #

如果需要根据用户输入动态修改infoBox的内容，只需要把参数集合改成响应式对象即可。比如添加一个滑块控件来调整用户数：

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = "Dynamic boxes"),
  dashboardSidebar(
    # 添加一个滑块输入，用于动态修改用户数
    sliderInput("user_count", "调整新增用户数:", min = 0, max = 500, value = 123)
  ),
  dashboardBody(
    fluidRow(
      uiOutput("iboxes")
    )
  )
)

server <- function(input, output) {
  # 把参数集合改成响应式，依赖输入控件的变化
  info_box_settings <- reactive({
    list(
      list(title = "新增用户", value = input$user_count, icon = icon("user-plus"), color = "light-blue"),
      list(title = "总销售额", value = "$4,567", icon = icon("dollar-sign"), color = "green"),
      list(title = "页面访问量", value = 8901, icon = icon("eye"), color = "yellow")
    )
  })
  
  output$iboxes <- renderUI({
    lapply(info_box_settings(), function(box_args) {
      infoBox(
        title = box_args$title,
        value = box_args$value,
        icon = box_args$icon,
        color = box_args$color,
        fill = TRUE
      )
    })
  })
}

shinyApp(ui, server)

这样一来，你只需要维护info_box_settings这个参数列表，就能通过单个响应式函数生成并更新多个infoBox组件啦！

内容的提问来源于stack exchange，提问作者Adam Shaw