Tworzenie szkieletu interfejsu
Wróćmy do poprzedniego przykładu dashboardu z wynikami analizy turnieju piłkarskiego. W poprzednich ćwiczeniach skonfigurowałeś już nagłówek i pasek boczny.
Przypominamy, że przycisk w pasku bocznym definiuje się za pomocą menuItem(), a wszystkie przyciski umieszcza się wewnątrz sidebarMenu(). Pewnie zauważyłeś, że te przyciski na razie nic nie robią. Teraz połączysz je z odpowiednimi stronami w sekcji body interfejsu użytkownika. To wciąż część procesu tworzenia szkieletu interfejsu – na tym etapie decydujesz, gdzie umieścić poszczególne elementy. Każda strona w sekcji body jest definiowana przez tabItem() i musi być zawarta w tabItems.
Biblioteki shiny i shinydashboard są już wczytane. Nagłówek dashboardu jest przechowywany w zmiennej header.
To ćwiczenie jest częścią kursu
Tworzenie dashboardów z shinydashboard
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
library(shiny)
library(shinydashboard)
header <- dashboardHeader(
title = "Analysis results for global soccer tournament",
titleWidth = 400,
dropdownMenu(type = "messages",
messageItem("Colleage", "Hello world!")),
dropdownMenu(type = "notifications",
notificationItem("Have you rested today?"),
taskItem("Dashboard completion", value = 20)))
sidebar <- dashboardSidebar(
sidebarMenu(
width = 400,
id = "pages",
menuItem("Match details", tabName = "matches", icon = icon("futbol"),
badgeLabel = "New content!", badgeColor = "green"),
menuItem("Overall results", tabName = "overall",
menuSubItem("Charts", tabName = "charts"),
menuSubItem("Data table", tabName = "datatable", icon=icon("file-excel"))),
menuItem("A slider", sliderInput("slider", "Number of goals", min=0, max=10, value = 2))
)
)
body <- dashboardBody(
# Link "matches" to an empty page in the body
___(
___(___, "Match information goes here")
)
)
ui <- dashboardPage(header, sidebar, body)
server <- function(input, output){}
shinyApp(ui, server)