Temi

Shiny rende semplice personalizzare il tema di un'app. Le funzioni UI di Shiny si basano su Twitter Bootstrap, un framework molto diffuso per creare applicazioni web. Bootswatch estende Bootstrap e permette di cambiare facilmente l'aspetto di un'app con modifiche minime al codice.

In questo esercizio aggiungerai un pannello del titolo alla tua app, userai il selettore dei temi per esplorare temi diversi e poi applicherai un tema a tua scelta.

Questo esercizio fa parte del corso

Creare applicazioni web con Shiny in R

Visualizza corso

Istruzioni dell'esercizio

Esegui l'app e usa il selettore dei temi in alto a destra per esplorare diversi temi Bootswatch.
Aggiungi un titolo appropriato alla pagina.
Sostituisci themeSelector() con un tema a tua scelta.

esercizio interattivo pratico

Prova questo esercizio completando questo codice di esempio.

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)

Modifica ed esegui il codice