Rullgardinsmenyer
Du har sett hur rullgardinsmenyer kan läggas till i en shinyApp. Det gör att användaren kan välja ett alternativ ur en lista, utan att det tar upp särskilt mycket utrymme. Det kan vara en bra UI-lösning när det redan finns många andra funktioner i appen.
I den här övningen har data lagrats som sleep och ett diagram kallat p har sparats. Biblioteken shiny och tidyverse har också laddats in. När du är klar med koden kan du öppna shinyApp:en i en HTML-visare för en mer fullständig vy.
Den här övningen är en del av kursen
Bygga dashboards med shinydashboard
Övningsinstruktioner
- Lägg till en
selectInput()med två val: "Plot" och "Table". - Lägg till en
plotOutput()och entableOutput()med namnen "plot" respektive "table". - Lägg till diagramutdatan i servern.
- Lägg till tabelldatan i servern.
Interaktiv övning med praktiskt arbete
Testa den här övningen genom att slutföra den här exempelkoden.
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)