ÎncepețiÎncepe gratuit

Meniuri derulante

Ai văzut cum pot fi adăugate meniuri derulante într-o shinyApp. Acestea permit utilizatorului să aleagă o opțiune dintr-o listă, ocupând un spațiu redus. Poate fi o alegere bună pentru designul UI atunci când aplicația conține deja multe alte elemente.

În acest exercițiu, datele au fost stocate ca sleep, iar un grafic numit p a fost salvat. Bibliotecile shiny și tidyverse sunt deja încărcate. După ce ai completat codul, poți deschide shinyApp-ul într-un vizualizator HTML pentru o vedere mai completă.

Acest exercițiu face parte din cursul

Crearea dashboardurilor cu shinydashboard

Vezi cursul

Instrucțiuni pentru exercițiu

  • Adaugă un selectInput() cu două opțiuni numite "Plot" și "Table".
  • Adaugă un plotOutput() și un tableOutput() numite "plot" și, respectiv, "table".
  • Adaugă rezultatul graficului în server.
  • Adaugă rezultatul tabelului în server.

Exercițiu interactiv practic

Încearcă acest exercițiu completând acest cod de exemplu.

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)
Editează și rulează codul