Composants 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 une sortie de tableau de bord
- Une IU est requise
- Un serveur est requis
shinyApp() est aussi nécessaire pour relier l'IU et le serveur
Remarquez que l'IU est définie par dashboardPage() et non fluidPage()

ui <- dashboardPage(header, sidebar, body)

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

shinyApp(ui, server)

L'interface utilisateur (IU)

L'IU comprend maintenant plus d'éléments
1. Un en-tête
2. Une barre latérale
3. Un corps
L'IU d'un shinydashboard se construit avec dashboardPage()

header <- dashboardHeader(...)

sidebar <- dashboardSidebar(...)

body <- dashboardBody(...)

# IU d'un shinydashboard
ui <- dashboardPage(header, sidebar, body)

Aperçu de l'IU

Structure des composants de l'IU d'un shinydashboard.

Retour à l'analogie du restaurant

L'IU est comme le restaurant
Le serveur est comme le serveur de table
En particulier, l'IU se découpe en plus petits composants

L'utilisateur d'une 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'IU comme repas en plusieurs services

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

Chaque service 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