Temalar

Shiny, bir uygulamanın temasını özelleştirmeyi kolaylaştırır. Shiny'deki UI fonksiyonları, web uygulamaları geliştirmek için popüler bir çatı olan Twitter Bootstrap kullanır. Bootswatch, çok az kod değişikliğiyle bir uygulamayı kolayca “skin” etmeyi sağlayarak Bootstrap'i genişletir.

Bu egzersizde, uygulamana bir başlık paneli ekleyecek, farklı temaları keşfetmek için tema seçiciyi kullanacak ve ardından seçtiğin bir temayı uygulayacaksın.

Bu egzersiz

R ile Shiny Kullanarak Web Uygulamaları Geliştirme

kursunun bir parçasıdır

Kursu Görüntüle

Egzersiz talimatları

Uygulamayı çalıştır ve sağ üstteki tema seçiciyi kullanarak farklı Bootswatch temalarını keşfet.
Sayfaya uygun bir başlık ekle.
themeSelector() öğesini seçtiğin bir tema ile değiştir.

Uygulamalı interaktif egzersiz

Bu örnek kodu tamamlayarak bu egzersizi bitirin.

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)

Kodu Düzenle ve Çalıştır