Statusy, kolory i skórki

Tworzenie dashboardów z shinydashboard

Png Kee Seng

Researcher

Upiększanie restauracji

Dostosowywanie pulpitu to jak upiększanie restauracji
Mówi się, że najpierw jemy oczami
Atrakcyjny wizualnie pulpit zapewnia lepsze doświadczenia użytkownika
Skupimy się na zmianie kolorów wybranych elementów

Upiększona restauracja z estetycznie podanym jedzeniem.

¹ Image by Freepik

Statusy w shinydashboard

Niektóre obiekty shinydashboard mają właściwość status
Statusy ustawia się za pomocą argumentu status
```
<object>(status = <status>, ...)
```

Statusy w shinydashboard

Statusy w notificationItems

Dodanie dwóch powiadomień w nagłówku
- Ustawienie alertu kupna jako komunikat sukcesu
- Ustawienie alertu sprzedaży jako komunikat błędu
Domyślny status notificationItem() to "success"

Statusy success i danger dla notificationItem.

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

       notificationItem("Sell alert",

       status = "danger"

       ),

       notificationItem("Buy alert",

       status = "success"

       )

))
...

Statusy w polach

Pozostawienie status bez zmian oznacza niepokolorowane pole
Ustawienie status na "info"
Ustawienie tytułu
Ustawienie solidHeader = TRUE

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

        title="Stock name title",

        width = 6,

        status = "info",

        solidHeader = TRUE)),

...

Pole ze statusem info.

Pole ze statusem info i tytułem.

Pole ze statusem info, tytułem i wypełnieniem.

Dodawanie koloru w shinydashboard

W niektórych obiektach shinydashboard można ustawić color
Załóżmy, że cena close spadła o 2% od wczoraj
- Renderowanie valueBox() z czerwonym kolorem w celu ostrzeżenia Sally

Pokolorowany valueBox().

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

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

            color = "red"

            ),

    ...)
...

Więcej kolorów

Dostępne kolory w shinydashboard:

Kolory dostępne w shinydashboard.

Dostępne statusy i kolory można sprawdzić za pomocą ?validStatuses i ?validColors

Skórki w shinydashboard

W shinydashboard dostępne są predefiniowane skórki
Można je zastosować, ustawiając argument skin w dashboardPage()

dashboardPage(skin = <color>)

Dostępne kolory

"blue" (domyślny)
"black"
"purple"
"green"
"red"
"yellow"

Wypróbowanie różnych skórek

Ustawienie koloru na fioletowy
Ustawienie koloru na czarny w celu porównania

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

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

Fioletowa skórka.

Czarna skórka

Czas na ćwiczenia!

Tworzenie dashboardów z shinydashboard