Statuts, couleurs et habillages

Créer des tableaux de bord avec shinydashboard

Png Kee Seng

Researcher

Embellir un restaurant

Personnaliser le tableau de bord, c'est comme embellir le restaurant
On dit qu'on mange d'abord avec les yeux
Un tableau de bord plus attrayant améliore l'expérience utilisateur
Concentrons-nous sur la couleur de certains éléments

Un restaurant embelli avec des plats visuellement attrayants.

¹ Image par Freepik

Statuts dans shinydashboard

Certains objets shinydashboard ont une propriété status
Vous pouvez la définir avec l'argument status
```
<object>(status = <status>, ...)
```

Statuts dans un shinydashboard

Statuts dans notificationItem

Ajoutons deux avis dans l'en-tête
- Définir l'alerte d'achat comme message de réussite
- Définir l'alerte de vente comme message de danger
Le statut par défaut de notificationItem() est "success"

Statuts success et danger pour notificationItem.

header <- dashboardHeader(
  ...
  dropdownMenu(type = "notifications",

       notificationItem("Sell alert",

       status = "danger"

       ),

       notificationItem("Buy alert",

       status = "success"

       )

))
...

Statuts dans les boîtes

Laisser status vide donne une boîte sans couleur
Définir status à "info"
Définir le titre
Définir solidHeader = TRUE

...
body <- dashboardBody(...,
        box("Stock name",

        title="Stock name title",

        width = 6,

        status = "info",

        solidHeader = TRUE)),

...

Boîte avec le statut info.

Boîte avec le statut info et un titre.

Boîte avec le statut info, un titre et un remplissage uni.

Ajouter de la couleur à shinydashboard

Dans certains objets shinydashboard, on peut définir color
Supposons que le prix close a baissé de 2 % depuis hier
- Rendre valueBox() en rouge pour avertir Sally

On peut colorer un valueBox().

...
body <- dashboardBody(...,

    valueBox("Close (%)", 
            "-2%", 
            width = 2,

            color = "red"

            ),

    ...)
...

Plus de couleurs

Couleurs offertes dans shinydashboard :

Couleurs offertes dans shinydashboard.

Consultez les statuts et couleurs disponibles avec ?validStatuses et ?validColors

Habillages dans shinydashboard

Des habillages prédéfinis existent dans shinydashboard
Appliquez-les avec l'argument skin dans dashboardPage()

dashboardPage(skin = <color>)

Couleurs possibles

"blue" (par défaut)
"black"
"purple"
"green"
"red"
"yellow"

Essayer différents habillages

Passez la couleur à purple pour essayer
Puis à black pour comparer

ui <- dashboardPage(skin = "purple",
                    header, sidebar, body)

ui <- dashboardPage(skin = "black",
                    header, sidebar, body)

Habillage purple.

Habillage black

Passons à la pratique !

Créer des tableaux de bord avec shinydashboard