uiOutput 和 renderUI 不起作用（R Shiny）

Question

我正在尝试创建一个应用程序，它会创建一个简单的字符串列表 (actives$name)，并向我显示这些字符串。 由于某种原因，它不起作用。代码如下：

library(shiny)

ui <- fluidPage(

  sidebarLayout(
    mainPanel(
      textInput(inputId = "name", label = "Name", value = "foo"),
      actionButton(inputId = "add", label = "Add")
    ),
    sidebarPanel(
      uiOutput("activeB")
    )
  ),

)

server <- function(input, output, session) {

  actives <- reactiveValues()

  observeEvent(input$add,{
    actives$name <- c(actives$name, input$name)
  })

  output$activeB <- renderUI({
    for (i in 1:length(actives$name)) {
      p("Name:")
      verbatimTextOutput(actives$name[i])
      print(actives$name[i])
    }
  })

}

shinyApp(ui = ui, server = server)

我在for 循环中使用的print() 显示了正确的结果，因此它“知道”我正在尝试做什么。它只是不输出它。我做错了什么？

Answer 1

有趣的一个。花了我几个去得到它。您需要将renderUI 输出包装在tagList 中：

  output$activeB <- renderUI({
    tagList(HTML(paste(actives$name, collapse="<br>")))
  })

两个观察结果：

• 您的演示代码将永远无法运行，因为您的调试print 循环是renderUI 中的最后一条语句，因此renderUI 永远不会返回任何内容。 :(
• 你知道不用uiOutput和renderUI也能得到同样的效果，对吧？我假设您已经简化了实际用例以专注于问题 - 在这种情况下，谢谢！ :)

完整代码：

library(shiny)

ui <- fluidPage(
  sidebarLayout(
    mainPanel(
      textInput(inputId = "name", label = "Name", value = "foo"),
      actionButton(inputId = "add", label = "Add")
    ),
    sidebarPanel(
      uiOutput("activeB")
    )
  )
)

server <- function(input, output, session) {
  actives <- reactiveValues(
    name=c()
  )
  observeEvent(input$add,{
    actives$name <- c(actives$name, input$name)
  })
  output$activeB <- renderUI({
    tagList(HTML(paste(actives$name, collapse="<br>")))
  })
}

shinyApp(ui = ui, server = server)