shinydashboard で作るダッシュボード
Png Kee Seng
Researcher
shinyApp() も必要fluidPage() ではなく dashboardPage() で定義ui <- dashboardPage(header, sidebar, body)
server <- function(input, output){
...
}
shinyApp(ui, server)
dashboardPage() で組み立てますheader <- dashboardHeader(...)
sidebar <- dashboardSidebar(...)
body <- dashboardBody(...)
# 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 で作るダッシュボード