отображать панель как htmlOutput - PullRequest
Новая
       26

отображать панель как htmlOutput

0 голосов
/ 22 ноября 2018

Я пытаюсь создать многостраничное приложение, но проблема в том, что я не получаю реакцию от кнопки, которая должна перенаправить меня на страницу приложения, вот мой код: 

library(shiny)
library(shinyjs)
library(shinythemes)
library(shinydashboard)

render_page <- function(..., f) {
  page <- f(...)
  renderUI({
    fluidPage(page, title = title)
  })
}

ui_index <- function(...) {
  basicPage(
    actionButton("go","Go to App")
  )
}

ui_app <- function(...){
  dashboardPage(
    dashboardHeader(),
    dashboardSidebar(),
    dashboardBody()
  )
}

ui <- (htmlOutput("page"))


server <- function(input, output, session){
  output$page <- render_page(f = ui_index)

  observeEvent(input$go,{
    output$page = render_page(f = ui_app)
  })
}

shinyApp(ui = ui,server = server)
...