Teme

Shiny îți permite să personalizezi cu ușurință aspectul vizual al unei aplicații. Funcțiile UI din Shiny utilizează Twitter Bootstrap, un framework popular pentru construirea aplicațiilor web. Bootswatch extinde Bootstrap, făcând extrem de simplu să schimbi aspectul unei aplicații cu modificări minime de cod.

În acest exercițiu, vei adăuga un panou de titlu aplicației tale, vei folosi selectorul de teme pentru a explora diferite teme, și vei aplica apoi tema preferată.

Acest exercițiu face parte din cursul

Crearea aplicațiilor web cu Shiny în R

Vezi cursul

Instrucțiuni pentru exercițiu

Rulează aplicația și folosește selectorul de teme din colțul din dreapta sus pentru a explora diferite teme Bootswatch.
Adaugă un titlu potrivit paginii.
Înlocuiește themeSelector() cu o temă la alegerea ta.

Exercițiu interactiv practic

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

ui <- fluidPage(
  # CODE BELOW: Add a titlePanel with an appropriate title
  
  # REPLACE CODE BELOW: with theme = shinythemes::shinytheme("")
  shinythemes::themeSelector(),
  sidebarLayout(
    sidebarPanel(
      selectInput('name', 'Select Name', top_trendy_names$name)
    ),
    mainPanel(
      tabsetPanel(
        tabPanel('Plot', plotly::plotlyOutput('plot_trendy_names')),
        tabPanel('Table', DT::DTOutput('table_trendy_names'))
      )
    )
  )
)

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)

Editează și rulează codul