在shiny中从服务器调用仪表板页面

Question

我正在尝试从Shiny的服务器中的函数调用dashboardPage。它没有显示dahsboard页面，但显示了一个空白页面。如何将其重定向到我的dashboardPage。目前它在重定向后向我显示了一个空白页面。代码如下：

## app.R ##
library(shinydashboard)
library(shiny)
library(shinythemes)
library(DT)
ui1 <- function(){}

ui2 <- dashboardPage(){}

ui = (uiOutput("page"))

server <- function(input, output, session) {
if (USER$Logged == TRUE) 
    {
      output$page <- renderUI({
         ui2() 
      ###Here is the problem. It is not redirecting to ui2 which is
      ###a dashboardPage.
      })
    }
}

Answer 1

您没有正确地实现dashboardPage函数。下面的代码可以让你了解如何使用它。

library(shinydashboard)
library(shiny)
library(shinythemes)
library(DT)

header <- dashboardHeader(
  title = "dynamicDates",
  tags$li(class = "dropdown", tags$a(HTML(paste(uiOutput("Refresh1"))))))
body <- dashboardBody("this is body function", 
                      uiOutput("page"))
sidebar <- dashboardSidebar("this is side bar")
#we must pass header,body and sidebar parameters in dashboardPage funtion, which you have missed to specify. 
ui <- dashboardPage(header, sidebar, body, title = "example") 

server <- function(input, output, session) {
  output$Refresh1 <- renderText({
    toString(format(Sys.Date(), format = "%A  %d %b %Y"))
  })
  output$page <- renderUI("shiny dashboard")
}

shinyApp(ui, server)