Menu rozwijane
Wiesz już, jak dodawać menu rozwijane do shinyApp. Dzięki temu użytkownik aplikacji może wybrać jedną opcję z listy, a sam element zajmuje niewiele miejsca. To dobre rozwiązanie w projektowaniu UI, gdy w aplikacji jest już wiele innych elementów.
W tym ćwiczeniu dane są przechowywane jako sleep, a wykres jako p. Biblioteki shiny i tidyverse są już załadowane. Po ukończeniu kodu możesz otworzyć shinyApp w przeglądarce HTML, aby zobaczyć pełny widok.
To ćwiczenie jest częścią kursu
Tworzenie dashboardów z shinydashboard
Instrukcje do ćwiczenia
- Umieść
selectInput()z dwiema opcjami: "Plot" i "Table". - Umieść
plotOutput()itableOutput()o nazwach "plot" i "table". - Dodaj wynik wykresu do server.
- Dodaj wynik tabeli do server.
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
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)