Temas

O Shiny facilita a personalização do tema de um app. As funções de UI no Shiny usam o Twitter Bootstrap, um framework popular para criar aplicações web. O Bootswatch estende o Bootstrap e torna muito fácil aplicar um visual ao app com mudanças mínimas no código.

Neste exercício, você vai adicionar um painel de título ao seu app, usar o seletor de tema para explorar diferentes temas e, em seguida, aplicar o tema de sua preferência.

Este exercício faz parte do curso

Construindo Aplicações Web com Shiny em R

Ver curso

Instruções do exercício

Execute o app e use o seletor de tema no canto superior direito para explorar diferentes temas do Bootswatch.
Adicione um título apropriado à página.
Substitua o themeSelector() por um tema de sua preferência.

Exercício interativo prático

Experimente este exercício completando este código de exemplo.

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)

Editar e executar o código