Как использовать RenderUI на модульной функции в блестящем? - PullRequest
Новая
       7

Как использовать RenderUI на модульной функции в блестящем?

0 голосов
/ 28 мая 2018

Когда я запускаю этот код, он генерирует вывод.Все, что у него есть, это образец модульной функции и главное приложение.Это работает просто отлично, но когда я пытаюсь сделать это через 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)

Я пытаюсь найти решение этой проблемы, чтобы создать базовую страницу входа с условными страницами для разных пользователей.Я уверен, что должно быть что-то, чего мне не хватает сейчас, но мне все еще нужно какое-то решение этого.Пожалуйста, по крайней мере, укажите мне в правильном направлении.

...