Penarikan Data melalui API

knitr::opts_chunk$set(echo = TRUE)

Dalam era transformasi digital statistik resmi, integrasi data antar-instansi menuntut metode pertukaran data yang cepat, aman, dan efisien. Pemanfaatan Application Programming Interface (API) menjadi solusi menggantikan metode konvensional berbasis pengiriman berkas manual (file-sharing).

Penggunaan API dalam penarikan data memiliki beberapa keunggulan utama:

1. Aliran Data Aktual (Real-Time Data Stream): API memastikan bahwa data yang ditarik merupakan kondisi paling mutakhir dari basis data pusat (live database). Setiap perubahan, pembaruan, atau verifikasi data yang dilakukan di tingkat K/L penyedia data akan langsung tecermin saat skrip dieksekusi, meminimalisasi risiko analisis berbasis data usang.

2. Otomasi Alur Kerja (Automated Workflow): Melalui pemrograman R, seluruh rangkaian proses mulai dari autentikasi, pengunduhan, penataan struktur, hingga ekspor dokumen dapat dijadwalkan secara otomatis tanpa intervensi manual.

3. Keamanan dan Akuntabilitas Data: Akses menggunakan token dinamis berbasis waktu (MD5 hashing) memastikan bahwa jalur komunikasi data terenkripsi dengan baik, mencegah akses tidak sah (unauthorized access) terhadap data individu yang bersifat sensitif.

4. Standardisasi Format: Struktur data berbasis JSON memaksa adanya standardisasi variabel, memudahkan proses replikasi skrip dan pemeliharaan kode jangka panjang.

1 Pembuatan Token

Pada bagian ini, program mendefinisikan pembuatan token enkripsi berbasis MD5 (Message-Digest algorithm 5) dengan kombinasi teks statis dan dinamis berbasis tanggal hari ini untuk keamanan akses data.

hari_ini <- format(Sys.Date(), "%Y%m%d")
teks_token <- paste0("bpspkp", hari_ini)
token_md5 <- digest(teks_token, algo = "md5", serialize = FALSE)

2 Request ke API Endpoint

Proses pemanggilan data dilakukan dengan mengirimkan permintaan (request) berbasis metode GET ke server target dengan melampirkan token validasi.

## Menghubungi API menggunakan httr...

## Status Response: 200

3 Ekstraksi Data JSON

Apabila koneksi ke API berhasil (Status 200), teks mentah berformat JSON dari server akan diekstrak dan ditransformasikan ke dalam struktur tabel data (Data Frame).

if (status_api == 200) {
  json_text <- content(response, as = "text", encoding = "UTF-8")
  data_api <- fromJSON(json_text)
    
  # Validasi struktur data JSON untuk memastikan data diubah menjadi tabel (Data Frame)
  if (is.data.frame(data_api)) {
      df_bnba <- data_api
  } else if ("data" %in% names(data_api) && is.data.frame(data_api$data)) {
      df_bnba <- data_api$data
  } else {
      df_bnba <- as.data.frame(data_api)
  }

  df_bnba <- clean_names(df_bnba)
    
  cat("Data berhasil ditarik. Jumlah baris:", nrow(df_bnba), "\n\n")
} else {
  cat("Gagal menghubungi API. Proses ekstraksi dilewati.\n")
}

## Data berhasil ditarik. Jumlah baris: 515

4 Ekspor Data

Data yang telah tersimpan selanjutnya diekspor ke dalam beberapa format penyimpanan sekunder, yaitu spreadsheet format csv dan file format sav (SPSS).

## Memulai proses ekspor file...
## -> Berhasil menyimpan CSV: data_3Juta_2026_20260530.csv 
## -> Berhasil menyimpan SAV (SPSS): data_3Juta_2026_20260530.sav 
## 
## Selesai! File Anda telah tersimpan di Working Directory.
## Lokasi folder Anda saat ini berada di: D:/2. Pengembangan diri/1 Exercise Bagus/Membaca API File

5 Resume

## Tanggal hari ini : 20260530

## Token MD5 Anda   : 636e3bb8118488efe247c777945802de

## Status Response  : 200

## Data berhasil ditarik. Jumlah baris: 515

Variabel Data API

##  [1] "kode_provinsi" "kode_kabkota"  "nama_provinsi" "nama_kabkota" 
##  [5] "deliniasi"     "crusun_pb"     "crusun_pk"     "crusus_pb"    
##  [9] "crusus_pk"     "cbsps"         "cpsu"          "csanitasi"    
## [13] "capbd_prop_pb" "capbd_prop_pk" "capbd_pb"      "capbd_pk"     
## [17] "capbdes_pb"    "capbdes_pk"    "cdak"          "crtlh"        
## [21] "cflpp"         "ckom"          "cgwm"          "cpmikro"      
## [25] "cswa_pb"       "cswa_pk"       "ccsr_pb"       "ccsr_pk"

---

Direktorat Statistik Kesejahteraan Rakyat, BPS, saptahas@bps.go.id