НачатьНачать бесплатно

Настройка статусов

Одна из рекомендаций по 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)
Редактировать и запускать код