Aktualizace výstupu (server)

Už je to skoro hotové! Posledním krokem je aktualizovat výstup grafu tak, aby zobrazoval spojnicový graf závislosti prop na year, rozlišený barvou podle sex, pro jméno zadané uživatelem. K vytvoření grafu použij následující šablonu:

ggplot(subset(babynames, name == "David")) +
  geom_line(aes(x = year, y = prop, color = sex))

Pamatuj, že uživatelský vstup pojmenovaný foo je v server přístupný jako input$foo. Balíčky shiny a ggplot2 i dataset babynames jsou už předem načteny.

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

Tvorba webových aplikací se Shiny v R

Zobrazit kurz

Pokyny k cvičení

Přidej kód pro vykreslení grafu dovnitř renderPlot(). Nezapomeň nahradit napevno zadané jméno (name == "David") jménem, které zadal uživatel.

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("Baby Name Explorer"),
  sidebarLayout(
    sidebarPanel(textInput('name', 'Enter Name', 'David')),
    mainPanel(plotOutput('trend'))
  )
)

server <- function(input, output, session) {
  output$trend <- renderPlot({
    # CODE BELOW: Update to display a line plot of the input name
    ggplot()
    
  })
}

shinyApp(ui = ui, server = server)

Upravit a spustit kód