CommencezCommencez gratuitement

Définir des statuts

L'une des bonnes pratiques en UI/UX, mise en évidence dans la vidéo, consiste à utiliser les couleurs de façon judicieuse. Comme vous l'avez vu, on peut ajouter des statuts codés par couleur aux box() et aux notificationItem() en définissant les arguments appropriés.

Available statuses

Cela vous permet d'exploiter ces couleurs prédéfinies pour aider les utilisateurs à reconnaître rapidement la nature du message sans devoir y porter une attention soutenue.

Dans ce qui suit, vous allez essayer différents statuts dans shinydashboard.

Dans cet exercice, les bibliothèques shiny et shinydashboard ont déjà été chargées pour vous. De plus, l'en-tête et la barre latérale ont été enregistrés dans sidebar, et server() est une fonction vide.

Cette activité fait partie du cours

Créer des tableaux de bord avec shinydashboard

Voir le cours

Exercice interactif pratique

Essayez cet exercice en complétant ce code d’exemple.

library(shiny)
library(shinydashboard)

sidebar <- dashboardSidebar(
  width = 300,
  sidebarMenu(
    id = "pages",
    menuItem("Historical trends",
             tabName = "historical"),
    menuItem("Profits and Losses (PnLs)", 
             tabName = "profit", 
             icon = icon("money-bill-alt"),
             badgeLabel = "+2.3%", badgeColor = "green")
  )
)

header <- dashboardHeader(
  title = "Portfolio dashboard for Sally",
  titleWidth = 300,
  dropdownMenu(type = "notifications",
               # Change status of "Sell alert" from "warning" to "danger"
               notificationItem("Sell alert", status = "warning"),
               # Set status of "Buy alert" to "success".
               notificationItem("Buy alert", ___))
)

body <- dashboardBody()

ui <- dashboardPage(header, sidebar, body)
server <- function(input, output){}
shinyApp(ui, server)
Modifier et exécuter le code