Menus suspensos
Você viu como menus suspensos podem ser adicionados a uma shinyApp. Isso permite que a pessoa usuária do app escolha uma opção de uma lista, ocupando pouco espaço. Esse recurso pode deixar a UI mais eficiente quando o app já tem muitos outros elementos.
Neste exercício, os dados foram armazenados em sleep e um gráfico chamado p já foi criado. As bibliotecas shiny e tidyverse também foram carregadas. Quando terminar o código, você pode abrir a shinyApp em um Visualizador HTML para ver o resultado completo.
Este exercicio faz parte do curso
Construindo dashboards com shinydashboard
Instruções do exercicio
- Coloque um
selectInput()com duas opções chamadas "Plot" e "Table". - Coloque um
plotOutput()e umtableOutput()chamados "plot" e "table". - Adicione a saída do gráfico ao servidor.
- Adicione a saída da tabela ao servidor.
exercicio interativo prático
Tente este exercicio completando este código de exemplo.
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)