在renderUI中通过循环创建值框

library(shiny)

ui <- fluidPage(
  # 创建一个包含多个值框的容器
  fluidRow(
    column(4, offset = 1,
           # 使用循环创建值框
           lapply(1:5, function(i) {
             valueBox(
               paste0("值框", i),
               paste0("值", i),
               icon = icon("info"),
               color = "blue"
             )
           })
    )
  )
)

server <- function(input, output) {
  # 服务器逻辑
}

shinyApp(ui, server)