Các thành phần của shinydashboard

Xây dựng Dashboard với shinydashboard

Png Kee Seng

Researcher

Shinydashboard là gì?

  • Shinydashboard là một shinyApp với đầu ra dạng dashboard
    • Cần có UI
    • Cần có server
  • Cần shinyApp() để ghép UI và server
  • Lưu ý UI được định nghĩa bằng dashboardPage(), không phải fluidPage()
ui <- dashboardPage(header, sidebar, body)
server <- function(input, output){
...
}
shinyApp(ui, server)
Xây dựng Dashboard với shinydashboard

Giao diện người dùng (UI)

  • UI nay có nhiều phần hơn
    1. Header
    2. Sidebar
    3. Body
  • UI của shinydashboard được ghép bằng dashboardPage()
header <- dashboardHeader(...)
sidebar <- dashboardSidebar(...)
body <- dashboardBody(...)
# ui của shinydashboard
ui <- dashboardPage(header, sidebar, body)
Xây dựng Dashboard với shinydashboard

Xem trước UI

Phân rã các thành phần của UI shinydashboard.

Xây dựng Dashboard với shinydashboard

Ẩn dụ nhà hàng

  • UI như nhà hàng
  • Server như người phục vụ
  • UI có thể chia nhỏ thành các thành phần

Người dùng shinyApp như thực khách.

Người phục vụ chuyển order vào bếp và mang món ra.

1 Hình ảnh bởi macrovector trên Freepik
Xây dựng Dashboard với shinydashboard

UI như bữa ăn nhiều món

  • Trong UI:
    • Header như bảng hiệu
    • Sidebar như danh sách món
    • Outputs và inputs như món ăn và gọi món
  • Mỗi lần chỉ một món được phục vụ
  • Có hướng dẫn cho từng món
  • Mỗi món như một shinyApp
    • Có thể có nhiều nhóm input và output

Mỗi món như một shinyApp với nhiều input và output.

1 Hình ảnh bởi brgfx trên Freepik
Xây dựng Dashboard với shinydashboard

Một shinydashboard trống

library(shinydashboard)
library(shiny)
header <- dashboardHeader(title = "My first dashboard")
sidebar <- dashboardSidebar()
body <- dashboardBody()
ui <- dashboardPage(header, sidebar, body)
Xây dựng Dashboard với shinydashboard

Render shinydashboard

header <- dashboardHeader(title = "My first dashboard")

sidebar <- dashboardSidebar()

body <- dashboardBody()

ui <- dashboardPage(header, sidebar, body)

server <- function(input, output) { }
shinyApp(ui, server)
Xây dựng Dashboard với shinydashboard

Render shinydashboard

Một shinydashboard trống

Xây dựng Dashboard với shinydashboard

Ayo berlatih!

Xây dựng Dashboard với shinydashboard

Preparing Video For Download...