使用 shinydashboard 建立儀表板
Png Kee Seng
Researcher
shinyApp() 把 UI 和 server 串起來dashboardPage() 定義,而不是 fluidPage()ui <- dashboardPage(header, sidebar, body)
server <- function(input, output){
...
}
shinyApp(ui, server)
dashboardPage() 組合header <- dashboardHeader(...)
sidebar <- dashboardSidebar(...)
body <- dashboardBody(...)
# a shinydashboard ui
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)

使用 shinydashboard 建立儀表板