Düzenler ve temalar

R ile Shiny Kullanarak Web Uygulamaları Geliştirme

Kaelen Medeiros

Data Scientist

Varsayılan Shiny uygulama düzeni

ui <- fluidPage(
  titlePanel("Histogram"),
  sliderInput('nb_bins', '# Bins', 5, 10, 5),
  plotOutput('hist')
)
server <- function(input, output, session){
  output$hist <- renderPlot({
    hist(faithful$waiting, 
         breaks = input$nb_bins, 
         col = 'steelblue')
  })
}
shinyApp(ui = ui, server = server)

Kutu sayısını ayarlayan bir kaydırıcıyla birlikte bekleme sürelerinin histogramını gösteren bir uygulama

Kenar çubuğu düzeni

ui <- fluidPage(
  titlePanel("Histogram"),
  sidebarLayout(
    sidebarPanel(sliderInput('nb_bins', 
                             '# Bins', 5, 10, 5)),
    mainPanel(plotOutput('hist'))
  )
)
server <- function(input, output, session){
  output$hist <- renderPlot({
    hist(faithful$waiting, breaks = input$nb_bins, 
         col = 'steelblue')
  })
}
shinyApp(ui = ui, server = server)

Sağda bekleme sürelerinin histogramını ve solda kutu sayısını ayarlayan bir kaydırıcıyı gösteren bir uygulama

Sekmeli düzen

Sağda bekleme sürelerinin histogramını ve solda kutu sayısını ayarlayan bir kaydırıcıyı gösteren bir uygulama

Solda kutu sayısını ayarlayan bir kaydırıcı ve sağda bekleme sürelerinin histogramını, iki sekmeyle birlikte gösteren bir uygulama

Sekmeli düzen

ui <- fluidPage(
  titlePanel("Histogram"),
  sidebarLayout(
    sidebarPanel(sliderInput('nb_bins', '# Bins', 
                             5, 10, 5)),
    mainPanel(

      tabsetPanel(
        tabPanel('Waiting', 
                 plotOutput('hist_waiting')),
        tabPanel('Eruptions',
                 plotOutput('hist_eruptions'))
      )

    )
  )
)

server <- function(input, output, session){
  output$hist_waiting <- renderPlot({
    hist(faithful$waiting, 
         breaks = input$nb_bins, 
         col = 'steelblue')
  })
  output$hist_eruptions <- renderPlot({
    hist(faithful$eruptions, 
         breaks = input$nb_bins, 
         col = 'steelblue')
  })
}
shinyApp(ui = ui, server = server)

Tema seçici

ui <- fluidPage(
  titlePanel("Histogram"),

  shinythemes::themeSelector(),

  sidebarLayout(
    sidebarPanel(sliderInput('nb_bins', '# Bins', 
                             5, 10, 5)),
    mainPanel(plotOutput('hist'))
  )
)
server <- function(input, output, session){
  output$hist <- renderPlot({
    hist(faithful$waiting, breaks = input$nb_bins, 
         col = 'steelblue')
  })
}
shinyApp(ui = ui, server = server)

Sağda bekleme sürelerinin histogramını ve solunda kutu sayısını ayarlayan bir kaydırıcıyı, ayrıca kayan bir tema seçiciyi gösteren bir uygulama

Tema ekleme

ui <- fluidPage(
  titlePanel("Histogram"),

  theme = shinythemes::shinytheme('superhero'),

  sidebarLayout(
    sidebarPanel(sliderInput('nb_bins', '# Bins', 
                             5, 10, 5)),
    mainPanel(plotOutput('hist'))
  )
)
server <- function(input, output, session){
  output$hist <- renderPlot({
    hist(faithful$waiting, breaks = input$nb_bins, 
         col = 'steelblue')
  })
}
shinyApp(ui = ui, server = server)

Sağda bekleme sürelerinin histogramını ve solda kutu sayısını ayarlayan bir kaydırıcıyı gösteren bir uygulama

Hadi pratik yapalım!

R ile Shiny Kullanarak Web Uygulamaları Geliştirme