2017-10-26 1 views

Antwort

1

tableOutput innen dashboardSidebar verwendet; Sie können die Tabelle nach Belieben hinzufügen.

Bitte sehen ein Beispiel unter:

library(shiny) 
library(shinydashboard) 

if(interactive()){ 
    shinyApp(
    ui <- dashboardPage(
     dashboardHeader(title = "My Dashboard"), 
     dashboardSidebar(width = "300px", 
         br(), 
         br(), 
         tableOutput("data1")), 
     dashboardBody() 
    ), 

    server = function(input, output, session){ 
     output$data1 <- renderTable({ 
     head(mtcars[,1:4]) 
     }) 
    } 
) 
} 
+0

Das funktionierte, Thank you! –

Verwandte Themen