在嵌套模块之间传递uiOutput

Question

在我的应用程序中，我有两个模块(嵌套的)，我想为它们传递uiOuput。在下面的示例中，名为"screen1“的输出(在外部模块中创建)必须传递到内部模块，在内部模块中将显示该输出。但是它不起作用..将这样的uiOutput工作从原始的shinyApp传递到一个模块，但是我不能让它在两个模块之间工作。

innerUI <- function(id){
ns <- NS(id)

tagList(
  h4("Inner module"),
  uiOutput(ns('displayScreens'))
  )
}



inner <- function(input, output, session, params){

    output$displayScreens <- renderUI({
        params()
 })
}


outerUI <- function(id){
  ns <- NS(id)
  innerUI(ns('test1'))
}

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

  rv <- reactiveValues(
    test = uiOutput("screen1")
  )

  callModule(inner, 'test1', params= reactive({rv$test}))


  output$screen1 <- renderUI({
    h4("I am the screen 1 !")
  })

}

ui <- fluidPage(
  outerUI('test2')
)

server <- function(input, output, session){
  callModule(outer, 'test2')
    }

shinyApp(ui=ui, server=server)

Answer 1

您的问题似乎是名称空间的问题。您在外部创建了uiOutput("screen1")，并将其传递给内部，但没有命名空间。你可以像下面这样在反应式中传递uiOutput("screen1")：

test <- reactive({
  ns <- session$ns
  uiOutput(ns("screen1"))
})

callModule(inner, 'test1', params=test)

这应该是可行的。