Shiny不会在模块中呈现uiOutput数据

Question

我有此代码：

columnSelectorUI <- function(id) {
  ns <- NS(id)
  return(
    wellPanel(
      h4("Select columns"),
      uiOutput(ns("tab"))
    ))
}

columnSelectorServer <- function(input, output, session) {
  print("XXX")
  state <- reactiveValues()
  print(renderUI({h2("hello")}))
  print(output)
  output$tab <- renderUI({div(HTML("hello"))})
}

我看到的是：

• 已打印XXX，因此调用了服务器功能
• 呈现h4“选定的列”
• 呈现uiOutput元素，但不呈现其内容。

<div id="columnSelector-tab" class="shiny-html-output shiny-bound-output"></div>

Answer 1

已解决：当顶层小部件调用UI组件时，我错过了ns（）调用。