Komponenty shinydashboard

Tworzenie dashboardów z shinydashboard

Png Kee Seng

Researcher

Czym jest shinydashboard?

  • shinydashboard to shinyApp z wyjściem w postaci dashboardu
    • Wymagany jest UI
    • Wymagany jest serwer
  • Funkcja shinyApp() łączy UI z serwerem
  • UI definiuje dashboardPage(), a nie fluidPage()
ui <- dashboardPage(header, sidebar, body)
server <- function(input, output){
...
}
shinyApp(ui, server)
Tworzenie dashboardów z shinydashboard

Interfejs użytkownika (UI)

  • UI zawiera teraz więcej elementów
    1. Nagłówek
    2. Panel boczny
    3. Treść
  • UI shinydashboard składa się za pomocą dashboardPage()
header <- dashboardHeader(...)
sidebar <- dashboardSidebar(...)
body <- dashboardBody(...)
# a shinydashboard ui
ui <- dashboardPage(header, sidebar, body)
Tworzenie dashboardów z shinydashboard

Podgląd UI

Podział komponentów UI shinydashboard.

Tworzenie dashboardów z shinydashboard

Analogia z restauracją

  • UI jest jak restauracja
  • Serwer jest jak kelner
  • UI można podzielić na mniejsze komponenty

Użytkownik shinyApp jest jak gość restauracji.

Kelner przekazuje zamówienie do kuchni i przynosi dania.

1 Image by macrovector on Freepik
Tworzenie dashboardów z shinydashboard

UI jako kolacja wielodaniowa

  • W UI:
    • Nagłówek jest jak szyld restauracji
    • Panel boczny jest jak lista dań
    • Wyjścia i wejścia są jak dania i zamówienia
  • W danym momencie wyświetlane jest jedno danie
  • Dla każdego dania podawane są instrukcje
  • Każde danie jest jak shinyApp
    • Może zawierać wiele wejść i wyjść

Każde danie jest jak shinyApp z wieloma wejściami i wyjściami.

1 Image by brgfx on Freepik
Tworzenie dashboardów z shinydashboard

Pusty shinydashboard

library(shinydashboard)
library(shiny)
header <- dashboardHeader(title = "My first dashboard")
sidebar <- dashboardSidebar()
body <- dashboardBody()
ui <- dashboardPage(header, sidebar, body)
Tworzenie dashboardów z shinydashboard

Renderowanie shinydashboard

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

sidebar <- dashboardSidebar()

body <- dashboardBody()

ui <- dashboardPage(header, sidebar, body)

server <- function(input, output) { }
shinyApp(ui, server)
Tworzenie dashboardów z shinydashboard

Renderowanie shinydashboard

Pusty shinydashboard

Tworzenie dashboardów z shinydashboard

Czas na ćwiczenia!

Tworzenie dashboardów z shinydashboard

Preparing Video For Download...