Tema

Shiny memudahkan Anda menyesuaikan tema sebuah aplikasi. Fungsi UI di Shiny memanfaatkan Twitter Bootstrap, sebuah kerangka kerja populer untuk membangun aplikasi web. Bootswatch memperluas Bootstrap dengan membuat penggantian tampilan aplikasi menjadi sangat mudah dengan perubahan kode yang minimal.

Dalam latihan ini, Anda akan menambahkan panel judul ke aplikasi, menggunakan pemilih tema untuk menjelajahi berbagai tema, lalu menerapkan tema pilihan Anda.

Latihan ini adalah bagian dari kursus

Membangun Aplikasi Web dengan Shiny di R

Lihat Kursus

Petunjuk latihan

Jalankan aplikasi dan gunakan pemilih tema di kanan atas untuk menjelajahi berbagai tema Bootswatch.
Tambahkan judul yang sesuai pada halaman.
Ganti themeSelector() dengan tema pilihan Anda.

Latihan interaktif praktis

Cobalah latihan ini dengan menyelesaikan kode contoh berikut.

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)

Edit dan Jalankan Kode