LoslegenKostenlos loslegen

Füge eine Tabellenausgabe hinzu

Um eine Ausgabe zu einer Shiny-App hinzuzufügen, musst du:

  1. Die Ausgabe erzeugen (Plot, Tabelle, Text usw.).
  2. Das Ausgabeobjekt mit der passenden render___-Funktion rendern.
  3. Das gerenderte Objekt output$x zuweisen.
  4. Die Ausgabe mit der passenden ___Output-Funktion zum UI hinzufügen.

In dieser Übung fügst du der Baby-Namen-Explorer-App, die du zuvor erstellt hast, eine Tabellenausgabe hinzu. Vergiss nicht: Code innerhalb einer render___-Funktion muss in geschweifte Klammern gesetzt werden (z. B. renderPlot({...})).

Diese Übung ist Teil des Kurses

Webanwendungen mit Shiny in R entwickeln

Kurs anzeigen

Anleitung zur Übung

  • Erstelle eine Tabellenausgabe namens table_top_10_names mit den 10 beliebtesten Namen nach Geschlecht und Jahr. Du kannst die Funktion top_10_names() verwenden, um einen Data Frame zur Anzeige zu erzeugen.
  • Zeige die Tabelle im UI an.

Interaktive Übung

Vervollständige den Beispielcode, um diese Übung erfolgreich abzuschließen.

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)
Code bearbeiten und ausführen