r - 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>

标签： rshiny

Answer 1

已解决：当调用 UI 组件时，我在顶级小部件中缺少 ns() 调用。