Компоненти shinydashboard

Створення панелей керування з shinydashboard

Png Kee Seng

Researcher

Що таке shinydashboard?

  • shinydashboard — це звичайний shinyApp із виведенням панелі
    • Потрібен UI
    • Потрібен server
  • Також потрібен shinyApp(), щоб зʼєднати UI і server
  • Зверніть увагу: UI задає dashboardPage(), а не fluidPage()
ui <- dashboardPage(header, sidebar, body)
server <- function(input, output){
...
}
shinyApp(ui, server)
Створення панелей керування з shinydashboard

Інтерфейс користувача (UI)

  • UI тепер має більше частин
    1. Header
    2. Sidebar
    3. Body
  • UI shinydashboard збирається через dashboardPage()
header <- dashboardHeader(...)
sidebar <- dashboardSidebar(...)
body <- dashboardBody(...)
# ui shinydashboard
ui <- dashboardPage(header, sidebar, body)
Створення панелей керування з shinydashboard

Попередній перегляд UI

Схема компонентів UI у shinydashboard.

Створення панелей керування з shinydashboard

Повертаємось до ресторанної аналогії

  • UI — як ресторан
  • Server — як офіціант
  • Зокрема, UI можна розбити на менші компоненти

Користувач shinyApp — як відвідувач ресторану.

Офіціант передає замовлення на кухню і приносить нам страви.

1 Image by macrovector on Freepik
Створення панелей керування з shinydashboard

UI як багатостравна подача

  • У UI:
    • Header — як вивіска
    • Sidebar — як перелік «курсів»
    • Outputs та inputs — як страви й замовлення
  • Одночасно показано один «курс»
  • Для кожного курсу є інструкції
  • Кожен курс — як окремий shinyApp
    • Можна мати кілька наборів inputs і outputs

Кожен курс — як shinyApp із кількома inputs і outputs.

1 Image by brgfx on Freepik
Створення панелей керування з shinydashboard

Порожній shinydashboard

library(shinydashboard)
library(shiny)
header <- dashboardHeader(title = "My first dashboard")
sidebar <- dashboardSidebar()
body <- dashboardBody()
ui <- dashboardPage(header, sidebar, body)
Створення панелей керування з shinydashboard

Рендеринг shinydashboard

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

sidebar <- dashboardSidebar()

body <- dashboardBody()

ui <- dashboardPage(header, sidebar, body)

server <- function(input, output) { }
shinyApp(ui, server)
Створення панелей керування з shinydashboard

Рендеринг shinydashboard

Порожній shinydashboard

Створення панелей керування з shinydashboard

Давайте потренуємось!

Створення панелей керування з shinydashboard

Preparing Video For Download...