Añade una salida de tabla

Para añadir cualquier resultado a una app de Shiny, necesitas:

Crear el resultado (gráfico, tabla, texto, etc.).
Renderizar el objeto de salida usando la función render___ adecuada.
Asignar el objeto renderizado a output$x.
Añadir el resultado a la interfaz (UI) usando la función ___Output adecuada.

En este ejercicio, vas a añadir una salida de tabla a la app exploradora de nombres de bebés que creaste antes. No olvides que el código dentro de una función render___ debe ir entre llaves (p. ej., renderPlot({...})).

Este ejercicio forma parte del curso

Creación de aplicaciones web con Shiny en R

Ver curso

Instrucciones del ejercicio

Crea una salida de tabla llamada table_top_10_names, con los 10 nombres más populares por sexo y año. Puedes usar la función top_10_names() para generar un data frame que se muestre.
Muestra la tabla en la UI.

Ejercicio interactivo práctico

Prueba este ejercicio y completa el código de muestra.

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 y ejecutar código