Статусы, цвета и темы оформления

Создание дашбордов с помощью shinydashboard

Png Kee Seng

Researcher

Оформление ресторана

Настройка дашборда похожа на оформление ресторана
Говорят, что сначала мы едим глазами
Визуально привлекательный дашборд улучшает пользовательский опыт
Сосредоточимся на изменении цветов отдельных элементов

Красиво оформленный ресторан с аппетитными блюдами.

¹ Изображение: Freepik

Статусы в shinydashboard

Некоторые объекты shinydashboard имеют свойство status
Статус задаётся с помощью аргумента status
```
<object>(status = <status>, ...)
```

Статусы в shinydashboard

Статусы в notificationItems

Добавим два уведомления в заголовок
- Уведомление о покупке — статус «успех»
- Уведомление о продаже — статус «опасность»
Статус по умолчанию для notificationItem() — "success"

Статусы success и danger для notificationItem.

header <- dashboardHeader(
  ...
  dropdownMenu(type = "notifications",

       notificationItem("Sell alert",

       status = "danger"

       ),

       notificationItem("Buy alert",

       status = "success"

       )

))
...

Статусы в блоках

Если не задать status, блок останется без цвета
Установите status в значение "info"
Задайте заголовок
Установите solidHeader = TRUE

...
body <- dashboardBody(...,
        box("Stock name",

        title="Stock name title",

        width = 6,

        status = "info",

        solidHeader = TRUE)),

...

Блок со статусом info.

Блок со статусом info и заголовком.

Блок со статусом info, заголовком и заливкой.

Добавление цвета в shinydashboard

Некоторые объекты shinydashboard поддерживают свойство color
Допустим, цена закрытия упала на 2% по сравнению со вчерашним днём
- Отобразите valueBox() красным цветом, чтобы предупредить Салли

Раскрашенный valueBox().

...
body <- dashboardBody(...,

    valueBox("Close (%)", 
            "-2%", 
            width = 2,

            color = "red"

            ),

    ...)
...

Больше цветов

Доступные цвета в shinydashboard:

Доступные цвета в shinydashboard.

Просмотреть доступные статусы и цвета можно с помощью ?validStatuses и ?validColors

Темы оформления в shinydashboard

В shinydashboard есть предустановленные темы оформления
Тема задаётся через аргумент skin в функции dashboardPage()

dashboardPage(skin = <color>)

Доступные цвета

"blue" (по умолчанию)
"black"
"purple"
"green"
"red"
"yellow"

Пробуем разные темы оформления

Установите фиолетовый цвет, чтобы попробовать
Установите чёрный цвет и сравните результат

ui <- dashboardPage(skin = "purple",
                    header, sidebar, body)

ui <- dashboardPage(skin = "black",
                    header, sidebar, body)

Фиолетовая тема.

Чёрная тема

Давайте потренируемся!

Создание дашбордов с помощью shinydashboard