Статуси, кольори та теми

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

Png Kee Seng

Researcher

Прикрашаємо ресторан

Налаштування дашборду схоже на «прикрашання» ресторану
Кажуть, що спершу ми «їмо очима»
Більш привабливий дашборд покращує взаємодію з користувачем
Зосередьмося на зміні кольорів деяких елементів

Оновлений ресторан із привабливими на вигляд стравами.

¹ Image by Freepik

Статуси в shinydashboard

Деякі об'єкти shinydashboard мають властивість status
Її задають аргументом status
```
<object>(status = <status>, ...)
```

Статуси в shinydashboard

Статуси в notificationItem

Додайте два сповіщення в заголовок
- Встановіть для buy alert статус успіху
- Встановіть для sell alert статус небезпеки
Типовий статус для notificationItem() — "success"

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

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

       notificationItem("Sell alert",

       status = "danger"

       ),

       notificationItem("Buy alert",

       status = "success"

       )

))
...

Статуси в box

Якщо не задавати 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
Припустімо, ціна close знизилася на 2% від учора
- Відобразьте valueBox() червоним, щоб попередити Sally

Можемо зафарбувати 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