Přidání tabulkového výstupu

Aby bylo možné přidat jakýkoli výstup do Shiny aplikace, je potřeba:

Vytvořit výstup (graf, tabulku, text apod.).
Vyrenderovat výstupní objekt pomocí příslušné funkce render___.
Přiřadit vyrenderovaný objekt do output$x.
Přidat výstup do UI pomocí příslušné funkce ___Output.

V tomto cvičení přidáš tabulkový výstup do aplikace pro procházení jmen miminek, kterou jsi vytvořil/a dříve. Nezapomeň, že kód uvnitř funkce render___ musí být zabalen do složených závorek (např. renderPlot({...})).

Toto cvičení je součástí kurzu

Tvorba webových aplikací se Shiny v R

Zobrazit kurz

Pokyny k cvičení

Vytvoř tabulkový výstup s názvem table_top_10_names, který zobrazí 10 nejoblíbenějších jmen podle pohlaví a roku. K vygenerování datového rámce pro zobrazení můžeš použít funkci top_10_names().
Zobraz tabulku v UI.

Interaktivní cvičení na vyzkoušení si v praxi

Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.

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)

Upravit a spustit kód