不呈现模块中的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 "selected columns“呈现为
• uiOutput元素被呈现，而不是它的内容。

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

Answer 1

解决了:在顶层小部件调用UI组件时，我缺少了ns()调用。