Aan de slagBegin gratis

Keuzemenu's

Je hebt gezien hoe keuzemenu's (drop-downs) kunnen worden toegevoegd aan een shinyApp. Zo kan de gebruiker een optie kiezen uit een lijst, terwijl het weinig ruimte inneemt. Dit zorgt voor een goede UI als er al veel andere onderdelen aan de app zijn toegevoegd.

In deze oefening zijn de gegevens opgeslagen als sleep en is er een plot p opgeslagen. De bibliotheken shiny en tidyverse zijn ook geladen. Als je de code hebt afgemaakt, kun je de shinyApp openen in een HTML Viewer voor een completer beeld.

Deze oefening maakt deel uit van de cursus

Dashboards bouwen met shinydashboard

Bekijk cursus

Oefeninstructies

  • Plaats een selectInput() met twee keuzes: "Plot" en "Table".
  • Plaats een plotOutput() en tableOutput() met de namen "plot" en "table".
  • Voeg de plot-output toe aan de server.
  • Voeg de tabel-output toe aan de server.

Interactieve oefening met praktijkervaring

Probeer deze oefening door deze voorbeeldcode aan te vullen.

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)
Code bewerken en uitvoeren