Definindo statuses
Uma das boas práticas de UI/UX destacadas no vídeo é usar cores de forma eficiente. Como você também viu, é possível adicionar statuses com cores a box()es e notificationItem() definindo os argumentos apropriados.
Isso permite usar essas cores predefinidas para ajudar os usuários a identificar rapidamente a natureza da mensagem sem precisar prestar muita atenção.
A seguir, você vai testar diferentes statuses no shinydashboard.
Neste exercício, as bibliotecas shiny e shinydashboard já foram carregadas para você. Além disso, o cabeçalho e a barra lateral foram armazenados como sidebar, e server() é uma função vazia.
Este exercicio faz parte do curso
Construindo dashboards com shinydashboard
exercicio interativo prático
Tente este exercicio completando este código de exemplo.
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)