Rozvržení se sidebarem

Funkce pro rozvržení umožňují vizuálně uspořádat vstupy a výstupy v uživatelském rozhraní. Dobře zvolené rozvržení dodá Shiny aplikaci lepší vzhled a zároveň zpříjemní práci uživatelům.

V tomto cvičení upravíš rozvržení Shiny aplikace, která umožňuje prozkoumávat popularitu módních jmen. Výsledná aplikace by měla vizuálně připomínat tento příklad:

Aplikace, ve které se výběr jména zobrazuje v levém sidebaru, zatímco graf se nachází vpravo v hlavním panelu

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

Tvorba webových aplikací se Shiny v R

Zobrazit kurz

Pokyny k cvičení

Uprav rozvržení aplikace tak, aby se výběr jména zobrazoval v sidebaru a graf spolu s tabulkou se nacházel vpravo.

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(
  # MODIFY CODE BELOW: Wrap in a sidebarLayout
    # MODIFY CODE BELOW: Wrap in a sidebarPanel
    selectInput('name', 'Select Name', top_trendy_names$name),
    # MODIFY CODE BELOW: Wrap in a mainPanel
    plotly::plotlyOutput('plot_trendy_names'),
    DT::DTOutput('table_trendy_names')
)

# DO NOT MODIFY
server <- function(input, output, session){
  # Function to plot trends in a name
  plot_trends <- function(){
     babynames %>% 
      filter(name == input$name) %>% 
      ggplot(aes(x = year, y = n)) +
      geom_col()
  }
  output$plot_trendy_names <- plotly::renderPlotly({
    plot_trends()
  })
  
  output$table_trendy_names <- DT::renderDT({
    babynames %>% 
      filter(name == input$name)
  })
}

shinyApp(ui = ui, server = server)

Upravit a spustit kód