shinydashboard funktioniert nicht mit uiOutput
Ich richte die Benutzeroberfläche in server.R ein, um mehr Kontrolle zu haben, aber shinyDashboard funktioniert nicht, wenn es in server.R definiert ist. Ich verwende diese Methode mit navBarPage ohne Probleme.
Dieser Code funktioniert
library(shiny)
library(shinydashboard)
ui <- dashboardPage( dashboardHeader( ),
dashboardSidebar(),
dashboardBody() )
server <- shinyServer(function(input, output) { })
runApp(list(ui= ui, server = server))
Aber diesmal wird nur eine leere Seite angezeigt
ui <- uiOutput('dash')
server <- shinyServer(function(input, output) {
output$dash <- renderUI({
dashboardPage(dashboardHeader( ),
dashboardSidebar(),
dashboardBody() )
})
})
runApp(list(ui= ui, server = server))
Dies ist ein Beispiel mit navBarPage, das gut funktioniert
ui <- uiOutput('nav')
server <- shinyServer(function(input, output) {
output$nav <- renderUI({
navbarPage("App Title",
tabPanel("Tab 1"),
tabPanel("Tab 2") )
})
})
runApp(list(ui= ui, server = server))