Rozbalovací nabídky
Viděl/a jsi, jak lze do shinyApp přidat rozbalovací nabídky. Díky nim si uživatel může vybrat jednu z možností v seznamu, aniž by zabírala příliš mnoho místa. To se hodí pro přehledný UI design, zejména pokud aplikace už obsahuje mnoho dalších prvků.
V tomto cvičení jsou data uložena jako sleep a graf jako p. Knihovny shiny a tidyverse jsou také načteny. Až kód dokončíš, můžeš shinyApp otevřít v HTML Vieweru pro úplnější zobrazení.
Toto cvičení je součástí kurzu
Tvorba dashboardů pomocí shinydashboard
Pokyny k cvičení
- Přidej
selectInput()se dvěma možnostmi: "Plot" a "Table". - Přidej
plotOutput()atableOutput()pojmenované "plot" a "table". - Přidej výstup grafu do serveru.
- Přidej výstup tabulky do serveru.
Interaktivní cvičení na vyzkoušení si v praxi
Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.
ui <- fluidPage(
titlePanel("Sleeping habits in America"),
# Place a selectInput with two choices, "Plot" and "Table"
___("choice", "Choose an output",
choices = ___),
# Place plot and table outputs called "plot" and "table"
___("plot"), ___)
server <- function(input, output) {
# Add renderPlot
output$plot <- ___({
if(input$choice == "Plot") p
})
# Add renderTable
output$___ <- ___({
if(input$choice == "Table") sleep
}) }
shinyApp(ui, server)