Adicionar uma saída de tabela

Para adicionar qualquer saída a um app Shiny, você precisa:

Criar a saída (gráfico, tabela, texto etc.).
Renderizar o objeto de saída usando a função render___ apropriada.
Atribuir o objeto renderizado a output$x.
Adicionar a saída à UI usando a função ___Output apropriada.

Neste exercício, você vai adicionar uma saída de tabela ao app explorador de nomes de bebês que você criou antes. Não se esqueça de que o código dentro de uma função render___ precisa estar entre chaves (por exemplo, renderPlot({...})).

Este exercício faz parte do curso

Construindo Aplicações Web com Shiny em R

Ver curso

Instruções do exercício

Crie uma saída de tabela chamada table_top_10_names, com os 10 nomes mais populares por sexo e ano. Você pode usar a função top_10_names() para gerar um data frame para exibição.
Exiba a tabela na UI.

Exercício interativo prático

Experimente este exercício completando este código de exemplo.

ui <- fluidPage(
  titlePanel("What's in a Name?"),
  # Add select input named "sex" to choose between "M" and "F"
  selectInput('sex', 'Select Sex', choices = c("F", "M")),
  # Add slider input named "year" to select year between 1900 and 2010
  sliderInput('year', 'Select Year', min = 1900, max = 2010, value = 1900)
  # CODE BELOW: Add table output named "table_top_10_names"
  
)

server <- function(input, output, session){
  # Function to create a data frame of top 10 names by sex and year 
  top_10_names <- function(){
    babynames %>% 
      filter(sex == input$sex) %>% 
      filter(year == input$year) %>% 
      slice_max(prop, n = 10)
  }
  # CODE BELOW: Render a table output named "table_top_10_names"
  
  
}

shinyApp(ui = ui, server = server)

Editar e executar o código