Ustawianie statusów
Jedną z dobrych praktyk UI/UX, omówionych w filmie, jest efektywne używanie kolorów. Jak już widzisz, oznaczenia kolorystyczne można dodawać do elementów box() i notificationItem(), ustawiając odpowiednie argumenty.
Dzięki temu predefiniowane kolory pomagają użytkownikom szybko rozpoznać charakter komunikatu – bez konieczności uważnego czytania każdej informacji.
W poniższym ćwiczeniu wypróbujesz różne statusy w shinydashboard.
Biblioteki shiny i shinydashboard są już wczytane. Nagłówek i pasek boczny zostały zapisane jako sidebar, a server() jest pustą funkcją.
To ćwiczenie jest częścią kursu
Tworzenie dashboardów z shinydashboard
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
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)