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)

这应该有效。

在嵌套模块之间传递uiOutput

1 个答案: