Question

当我运行此代码时，它会生成一个输出。它只是一个示例模块化功能和一个主应用程序。它工作得很好但是当我尝试通过renderUI渲染它时它不起作用。我知道这里肯定有一个技巧我不知道。如果你知道，请告诉我。

library(shiny)

mod_ui <- function(id){

ns<-NS(id) 

        fluidPage(
        plotOutput(ns('plot'))
    )
}

mod_server <- function(input, output, session) {
      output$plot<-renderPlot(
      plot(iris)
    )  
}

main_ui<-
    mod_ui('any_id')
    # uiOutput('any_id')


main_server<-function(input,output,session){
    callModule(mod_server,'any_id')

    # output$app<- renderUI(
        # mod_ui('any_id')  
    # )

}

shinyApp(main_ui, main_server)

当您稍微扭曲代码时，它无法正常工作。它会生成一个空白页面。

library(shiny)
mod_ui <- function(id) {
    ns <- NS(id)
    fluidPage(plotOutput(ns('plot')))
  }    


mod_server <- function(input, output, session) {
    output$plot <- renderPlot(plot(iris))
  }


main_ui <-
    # mod_ui('any_id')
    uiOutput('any_id')


main_server <- function(input, output, session) {
    callModule(mod_server, 'any_id')

    output$app <- renderUI(mod_ui('any_id'))

}

shinyApp(main_ui, main_server)

我正在尝试找到这个问题的解决方案，以便我可以为不同的用户创建一个带有条件页面的基本登录页面。我相信一定有一些我现在想念的东西，但我仍然需要解决这个问题。请至少指出我正确的方向。

如何在闪亮的模块化功能上使用RenderUI？

0 个答案: