ПочатиПочніть безкоштовно

Налаштування статусів

Одна з добрих практик UI/UX, на яку звертали увагу у відео, — це ефективне використання кольорів. Як ви вже бачили, кольорові статуси можна додавати до box() і notificationItem(), задаючи відповідні аргументи.

Available statuses

Це дозволяє використовувати наперед визначені кольори, щоб користувачі швидко розуміли характер повідомлення, не вдивляючись у деталі.

Далі ви спробуєте різні статуси в shinydashboard.

У цій вправі бібліотеки shiny і shinydashboard вже завантажено. Крім того, шапку та бічну панель збережено як sidebar, а server() — порожня функція.

Ця вправа є частиною курсу

Створення панелей керування з shinydashboard

Переглянути курс

Інтерактивна практична вправа

Спробуйте виконати цю вправу, доповнивши цей зразок коду.

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)
Редагувати та запускати код