Bitcoin ETL

library(jsonlite)
library(purrr)
library(DBI)
library(dplyr)

Extract

dat_json <- fromJSON("https://blockchain.info/ticker")
dat_df <- map_dfr(dat_json, c, .id="name")

Transform

dat <- dat_df %>%
  mutate(timestamp = Sys.time()) %>%
  select(timestamp, name:symbol)
dat

Load

con <- dbConnect(odbc::odbc(), "Postgres (DSN)")
#dbRemoveTable(con, "bitcoin")
dbWriteTable(con, "bitcoin", dat, append = TRUE)