Lebih banyak cara melihat data: plot dan unduh

Studi Kasus: Membangun Aplikasi Web dengan Shiny di R

Dean Attali

Shiny Consultant

Plot data

Plot adalah langkah awal umum saat mengeksplorasi dataset baru
- Plot adalah output
- Fungsi placeholder output plot di UI:
```
plotOutput("my_plot")
```
- Fungsi render plot di server:

  output$my_plot <- renderPlot({
      # code for a plot
  })

Unduh data

Pengunduhan didukung dengan tombol unduh
- Dapat membuat jenis file apa pun untuk diunduh
- file gambar, file teks, file CSV

File CSV

Comma Separated Values
Menyimpan dataset kecil–menengah

CSV untuk gapminder:

country,continent,year,lifeExp,pop,gdpPercap  
Afghanistan,Asia,1952,28.801,8425333,779.4453145  
Afghanistan,Asia,1957,30.332,9240934,820.8530296  
Afghanistan,Asia,1962,31.997,10267083,853.10071  
Afghanistan,Asia,1967,34.02,11537966,836.1971382

Buat file CSV:

write.csv(gapminder, "myfile.csv")

Unduh data di Shiny

Tombol unduh diperlakukan sebagai output

Tambahkan tombol unduh ke UI: (mirip fungsi output)

downloadButton(outputId = "download_data", 
               label = "Download data")

Tambahkan handler unduh di server: (mirip fungsi render)

output$download_data <- downloadHandler(
    filename = "data.csv",
    content = function(file) {
        # Code that creates a file in the path <file>
        write.csv(gapminder, file)
    }
)

Download handler

  output$download_data <- downloadHandler(
      filename = "data.csv",
      content = function(file) {
          # code that creates a file in the path <file>
          write.csv(gapminder, file)
      }
  )

downloadHandler() memiliki dua argumen
- filename
  - Nama file yang diunduh
- content(file)
  - Fungsi dengan 1 argumen
  - Membuat file untuk diunduh; argumennya adalah path file

Ayo berlatih!

Studi Kasus: Membangun Aplikasi Web dengan Shiny di R