Dodaj wynik w postaci tabeli
Aby dodać dowolny wynik do aplikacji Shiny, należy:
- Utworzyć wynik (wykres, tabelę, tekst itp.).
- Wyrenderować obiekt wynikowy za pomocą odpowiedniej funkcji
render___. - Przypisać wyrenderowany obiekt do
output$x. - Dodać wynik do interfejsu użytkownika (UI) za pomocą odpowiedniej funkcji
___Output.
W tym ćwiczeniu dodasz wynik w postaci tabeli do aplikacji do przeglądania imion dzieci, którą utworzyłeś wcześniej. Pamiętaj, że kod wewnątrz funkcji render___ musi być opakowany w nawiasy klamrowe (np. renderPlot({...})).
To ćwiczenie jest częścią kursu
Tworzenie aplikacji internetowych z Shiny w R
Instrukcje do ćwiczenia
- Utwórz wynik w postaci tabeli o nazwie
table_top_10_names, zawierający 10 najpopularniejszych imion według płci i roku. Możesz użyć funkcjitop_10_names(), aby wygenerować ramkę danych do wyświetlenia. - Wyświetl tabelę w interfejsie użytkownika (UI).
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
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)