r - 在 R Shiny 的一个反应函数中显示多个信息框

Question

我想知道是否可以像下面的脚本中那样只使用一个反应函数“ibox”创建多个信息框。我将在 ibox 反应函数中传递下面所有信息框的值，并查看所有这些信息框一起显示。

library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(title = "Dynamic boxes"),
dashboardSidebar(),
dashboardBody(
  fluidRow(
  infoBoxOutput("ibox")
  )))
server <- function(input, output) {
output$ibox <- renderInfoBox({
  infoBox(
    "Title",
    5,
    icon = icon("credit-card")
  )
  infoBox(
    "Title",
    5,
    icon = icon("credit-card")
  )
  infoBox(
    "Title",
    4,
    icon = icon("credit-card")
  )

  })}
  shinyApp(ui, server)

Answer 1

如评论中所述，您可以使用renderUIand uiOutput。但是，请注意，它renderUI实际上只呈现其正文中的最后一条语句。为了渲染多个对象，我们可以将它们放在一个列表中（或column,fluidRow等）。工作示例：

library(shiny)
library(shinydashboard)
ui <- dashboardPage(
  dashboardHeader(title = "Dynamic boxes"),
  dashboardSidebar(),
  dashboardBody(
    fluidRow(
      uiOutput("ibox")
    )))
server <- function(input, output) {
  output$ibox <- renderUI({
    list(
      infoBox(
        "Title",
        5,
        icon = icon("credit-card")
      ),
      infoBox(
        "Title",
        5,
        icon = icon("credit-card")
      ),
      infoBox(
        "Title",
        4,
        icon = icon("credit-card")
      )
    )
  })}
shinyApp(ui, server)