Aby pokazać sekcję dla wykresów i osobną dla tabel danych, użyjemy funkcji tabsPanel() w połączeniu z funkcją tabPanel(). Funkcja tabsPanel() odbiera i organizuje jedno lub więcej wywołań funkcji tablePanel(), przy czym każda z nich otrzymuje nazwę karty i jej rzeczywistą zawartość:
ui <- fluiPage (
titlePanel(„Cryptocurreny Markets”),
sidebarLayout (
sidebarPanel(„Options”),
mainPanel (
tabsetPanel (
tabPanel(„Simple Moving Averages”, „Content 1”),
tabPanel(„DataOverview”, „Content 2”)
)
)
)
)
Ponieważ stworzyliśmy dwie zakładki z tytułami, odpowiednio, Simple Moving Averages i Data Overview, to właśnie widzimy jako nazwy kart. Jeśli sam uruchamiasz aplikację w tym momencie, możesz na nie kliknąć, a zobaczysz ciąg znaków lub, w zależności od tego, który klikniesz:
Zauważ, że funkcja tabsetPanel() zajęła miejsce łańcucha „Content”, który wcześniej mieliśmy na swoim miejscu. To będzie powszechny wzorzec. W miarę jak zaczniemy wprowadzać do aplikacji coraz więcej elementów, będą one zastępować dotychczasowe symbole zastępcze. Gdy przyzwyczaisz się do Shiny, możesz całkowicie uniknąć tworzenia symboli zastępczych