Přidání select inputu
Přidání vstupu do Shiny aplikace probíhá ve dvou krocích: nejprve přidáš funkci ___Input("x") do UI a poté přistoupíš k její hodnotě v serveru pomocí input$x.
Například pokud chceš uživatelům umožnit výběr zvířete ze seznamu, použiješ selectInput a na vybranou hodnotu se odkážeš jako input$animal:
selectInput(
'animal',
'Select Animal',
selected = 'Cat',
choices = c('Dog', 'Cat')
)
V tomto cvičení vytvoříš Shiny aplikaci, která uživatelům umožní vizualizovat 10 nejoblíbenějších jmen podle pohlaví – přidáš vstup, pomocí kterého si pohlaví vyberou.
Toto cvičení je součástí kurzu
Tvorba webových aplikací se Shiny v R
Pokyny k cvičení
- Přidej select input pojmenovaný "sex", který uživatelům umožní vybrat mezi "M" a "F", s výchozí hodnotou "F".
- Aktualizuj kód serveru tak, aby načítal 10 nejoblíbenějších jmen pro zvolené pohlaví místo pevně zadaného "F".
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?"),
# CODE BELOW: Add select input named "sex" to choose between "M" and "F"
# Add plot output to display top 10 most popular names
plotOutput('plot_top_10_names')
)
server <- function(input, output, session){
# Render plot of top 10 most popular names
output$plot_top_10_names <- renderPlot({
# Get top 10 names by sex and year
top_10_names <- babynames %>%
# MODIFY CODE BELOW: Filter for the selected sex
filter(sex == "F") %>%
filter(year == 1900) %>%
slice_max(prop, n = 10)
# Plot top 10 names by sex and year
ggplot(top_10_names, aes(x = name, y = prop)) +
geom_col(fill = "#263e63")
})
}
shinyApp(ui = ui, server = server)