Nastavení statusů

Jednou z dobrých UI/UX praktik, které byly zdůrazněny ve videu, je efektivní používání barev. Jak jsi také viděl/a, barevně rozlišené statusy lze přidat do box()ů a notificationItem() nastavením příslušných argumentů.

Dostupné statusy

Díky tomu můžeš využít předdefinované barvy a pomoci uživatelům rychle rozpoznat povahu zprávy, aniž by museli věnovat pozornost každému detailu.

V následujícím cvičení vyzkoušíš různé statusy v shinydashboardu.

V tomto cvičení jsou knihovny shiny a shinydashboard již načteny. Header a sidebar jsou uloženy jako sidebar a server() je prázdná funkce.

Toto cvičení je součástí kurzu

Tvorba dashboardů pomocí shinydashboard

Zobrazit kurz

Interaktivní cvičení na vyzkoušení si v praxi

Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.

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)

Upravit a spustit kód