在R shinny中的一个被动功能中显示多个信息框

如评论中所述,您可以使用 renderUI 和 uiOutput 。但是,请注意 伦德鲁 仅实际呈现其正文中的最后一条语句。为了渲染多个对象,我们可以将它们放置在列表中(或 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)