Передача uiOutput между вложенными модулями

Question

В моем приложении у меня есть два (вложенных) модуля, для которых я хочу передать uiOuput.В приведенном ниже примере вывод с именем «screen1» (созданный во внешнем модуле) должен быть передан во внутренний модуль, где он будет отображаться.Но это не работает .. Передача такой работы uiOutput из исходного глянцевого приложения в один модуль, но я не могу заставить его работать между двумя модулями.

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)

Это должно работать.