Éléments d'un shinydashboard

Créer des tableaux de bord avec shinydashboard

Png Kee Seng

Researcher

Qu'est-ce qu'un shinydashboard ?

Un shinydashboard est une shinyApp avec un tableau de bord en sortie
- Une UI est requise
- Un serveur est requis
Un shinyApp() relie aussi l'UI et le serveur
Notez que l'UI est définie par dashboardPage() et non fluidPage()

ui <- dashboardPage(header, sidebar, body)

server <- function(input, output){
...
}

shinyApp(ui, server)

L'interface utilisateur (UI)

L'UI contient désormais plusieurs parties
1. Un en-tête
2. Une barre latérale
3. Un corps
L'UI d'un shinydashboard est assemblée avec dashboardPage()

header <- dashboardHeader(...)

sidebar <- dashboardSidebar(...)

body <- dashboardBody(...)

# une UI shinydashboard
ui <- dashboardPage(header, sidebar, body)

Aperçu de l'UI

Décomposition des éléments de l'UI d'un shinydashboard.

Revoir l'analogie du restaurant

L'UI est comme le restaurant
Le serveur est comme le serveur de salle
L'UI peut se décomposer en éléments plus petits

L'utilisateur de la shinyApp est comme un client de restaurant.

Le serveur transmet la commande à la cuisine et nous apporte les plats.

¹ Image par macrovector sur Freepik

L'UI comme un repas en plusieurs plats

Dans l'UI :
- L'en-tête est comme l'enseigne
- La barre latérale est comme la carte des plats
- Les sorties et entrées sont comme les plats et les commandes
Un plat est présenté à la fois
Des instructions sont données pour chaque plat
Chaque plat est comme une shinyApp
- On peut avoir plusieurs ensembles d'entrées et de sorties

Chaque plat est comme une shinyApp avec plusieurs entrées et sorties.

¹ Image par brgfx sur Freepik

Un shinydashboard vide

library(shinydashboard)
library(shiny)

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

sidebar <- dashboardSidebar()

body <- dashboardBody()

ui <- dashboardPage(header, sidebar, body)

Rendu du shinydashboard

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

sidebar <- dashboardSidebar()

body <- dashboardBody()

ui <- dashboardPage(header, sidebar, body)


server <- function(input, output) {
}


shinyApp(ui, server)

Rendu du shinydashboard

Un shinydashboard vide

Passons à la pratique !

Créer des tableaux de bord avec shinydashboard