Lägg till en tabellutdata

För att lägga till utdata i en Shiny-app behöver du:

Skapa utdata (diagram, tabell, text osv.).
Rendera utdataobjektet med lämplig render___-funktion.
Tilldela det renderade objektet till output$x.
Lägg till utdata i användargränssnittet med lämplig ___Output-funktion.

I den här övningen lägger du till en tabellutdata i baby names-appen som du skapade tidigare. Glöm inte att kod inuti en render___-funktion måste omslutas av klammerparenteser (t.ex. renderPlot({...})).

Den här övningen är en del av kursen

Bygg webbapplikationer med Shiny i R

Visa kurs

Övningsinstruktioner

Skapa en tabellutdata med namnet table_top_10_names, som visar de 10 mest populära namnen efter kön och år. Du kan använda funktionen top_10_names() för att generera en dataram att visa.
Visa tabellen i användargränssnittet.

Interaktiv övning med praktiskt arbete

Testa den här övningen genom att slutföra den här exempelkoden.

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)

Redigera och kör kod