Construindo dashboards com shinydashboard
Png Kee Seng
Researcher
shinyApp() para juntar a UI e o serverdashboardPage() e não por fluidPage()ui <- dashboardPage(header, sidebar, body)
server <- function(input, output){
...
}
shinyApp(ui, server)
dashboardPage()header <- dashboardHeader(...)
sidebar <- dashboardSidebar(...)
body <- dashboardBody(...)
# uma UI de shinydashboard
ui <- dashboardPage(header, sidebar, body)




library(shinydashboard)
library(shiny)
header <- dashboardHeader(title = "My first dashboard")
sidebar <- dashboardSidebar()
body <- dashboardBody()
ui <- dashboardPage(header, sidebar, body)
header <- dashboardHeader(title = "My first dashboard") sidebar <- dashboardSidebar() body <- dashboardBody() ui <- dashboardPage(header, sidebar, body)server <- function(input, output) { }shinyApp(ui, server)

Construindo dashboards com shinydashboard