BaşlayınÜcretsiz Başlayın

Filtrelenmiş veriyi indir

Dosya indirme işlemi, downloadButton() ve downloadHandler() ikilisiyle gerçekleştirilir. Bu iki fonksiyon, çıktı ve render fonksiyonlarının eşleşmesine benzer şekilde birlikte çalışır: downloadButton() düğmenin arayüzde nerede görüneceğini belirlerken, downloadHandler() output listesine kaydedilir ve indirilecek dosyayı oluşturacak gerçek R kodunu içerir.

Bu egzersiz

Vaka Çalışmaları: R ile Shiny Kullanarak Web Uygulamaları Geliştirme

kursunun bir parçasıdır
Kursu Görüntüle

Egzersiz talimatları

Tabloda şu anda görüntülenen veriyi CSV dosyası olarak indirebilme özelliğini ekle. Özellikle:

  • UI'a kimliği "download_data" ve etiketi "Download" olan bir indirme düğmesi ekle.
  • Sunucuya bir indirme işleyicisi ekle (satır 31).
  • İndirilen dosyaya "gapminder_data.csv" adını ver (satır 33).
  • Filtrelenmiş veriyi bir CSV dosyasına yaz (satır 50).

Uygulamalı interaktif egzersiz

Bu örnek kodu tamamlayarak bu egzersizi bitirin.

ui <- fluidPage(
  h1("Gapminder"),
  sliderInput(inputId = "life", label = "Life expectancy",
              min = 0, max = 120,
              value = c(30, 50)),
  selectInput("continent", "Continent",
              choices = c("All", levels(gapminder$continent))),
  # Add a download button
  ___(outputId = ___, label = ___),
  plotOutput("plot"),
  tableOutput("table")
)

server <- function(input, output) {
  output$table <- renderTable({
    data <- gapminder
    data <- subset(
      data,
      lifeExp >= input$life[1] & lifeExp <= input$life[2]
    )
    if (input$continent != "All") {
      data <- subset(
        data,
        continent == input$continent
      )
    }
    data
  })

  # Create a download handler
  output$download_data <- ___(
    # The downloaded file is named "gapminder_data.csv"
    filename = ___,
    content = function(file) {
      # The code for filtering the data is copied from the
      # renderTable() function
      data <- gapminder
      data <- subset(
        data,
        lifeExp >= input$life[1] & lifeExp <= input$life[2]
      )
      if (input$continent != "All") {
        data <- subset(
          data,
          continent == input$continent
        )
      }
      
      # Write the filtered data into a CSV file
      write.csv(___, file, row.names = FALSE)
    }
  )

  output$plot <- renderPlot({
    data <- gapminder
    data <- subset(
      data,
      lifeExp >= input$life[1] & lifeExp <= input$life[2]
    )
    if (input$continent != "All") {
      data <- subset(
        data,
        continent == input$continent
      )
    }
    ggplot(data, aes(gdpPercap, lifeExp)) +
      geom_point() +
      scale_x_log10()
  })
}

shinyApp(ui, server)
Kodu Düzenle ve Çalıştır