Configurar estados
Una de las buenas prácticas de UI/UX que se destacó en el vídeo es usar los colores de forma efectiva. Como también has visto, puedes añadir estados codificados por color a los box() y a notificationItem() estableciendo los argumentos adecuados.
Esto te permite usar colores predefinidos para que las personas identifiquen rápidamente la naturaleza del mensaje sin tener que fijarse demasiado.
A continuación, probarás diferentes estados en shinydashboard.
En este ejercicio, las librerías shiny y shinydashboard ya se han cargado por ti. Además, el encabezado y la barra lateral se han guardado como sidebar, y server() es una función vacía.
Este ejercicio forma parte del curso
Creación de paneles con shinydashboard
ejercicio interactivo práctico
Prueba este ejercicio completando este código de ejemplo.
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)