Adaugă un rezultat de tip tabel

Pentru a adăuga orice tip de rezultat într-o aplicație Shiny, trebuie să:

Creezi rezultatul (grafic, tabel, text etc.).
Randezi obiectul rezultat folosind funcția render___ corespunzătoare.
Atribui obiectul randat la output$x.
Adaugi rezultatul în UI folosind funcția ___Output corespunzătoare.

În acest exercițiu, vei adăuga un rezultat de tip tabel la aplicația de explorare a numelor de copii pe care ai creat-o anterior. Nu uita că codul din interiorul unei funcții render___ trebuie să fie înfășurat în acolade (de exemplu, renderPlot({...})).

Acest exercițiu face parte din cursul

Crearea aplicațiilor web cu Shiny în R

Vezi cursul

Instrucțiuni pentru exercițiu

Creează un rezultat de tip tabel numit table_top_10_names, cu cele mai populare 10 nume în funcție de sex și an. Poți folosi funcția top_10_names() pentru a genera un data frame de afișat.
Afișează tabelul în UI.

Exercițiu interactiv practic

Încearcă acest exercițiu completând acest cod de exemplu.

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)

Editează și rulează codul