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)
LS0tCnRpdGxlOiAiQml0Y29pbiBFVEwiCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KCmBgYHtyIHNldHVwLCBtZXNzYWdlPUZBTFNFfQpsaWJyYXJ5KGpzb25saXRlKQpsaWJyYXJ5KHB1cnJyKQpsaWJyYXJ5KERCSSkKbGlicmFyeShkcGx5cikKYGBgCgojIyBFeHRyYWN0CgpgYGB7cn0KZGF0X2pzb24gPC0gZnJvbUpTT04oImh0dHBzOi8vYmxvY2tjaGFpbi5pbmZvL3RpY2tlciIpCmRhdF9kZiA8LSBtYXBfZGZyKGRhdF9qc29uLCBjLCAuaWQ9Im5hbWUiKQpgYGAKCiMjIFRyYW5zZm9ybQoKYGBge3J9CmRhdCA8LSBkYXRfZGYgJT4lCiAgbXV0YXRlKHRpbWVzdGFtcCA9IFN5cy50aW1lKCkpICU+JQogIHNlbGVjdCh0aW1lc3RhbXAsIG5hbWU6c3ltYm9sKQpkYXQKYGBgCgojIyBMb2FkCgpgYGB7cn0KY29uIDwtIGRiQ29ubmVjdChvZGJjOjpvZGJjKCksICJQb3N0Z3JlcyAoRFNOKSIpCiNkYlJlbW92ZVRhYmxlKGNvbiwgImJpdGNvaW4iKQpkYldyaXRlVGFibGUoY29uLCAiYml0Y29pbiIsIGRhdCwgYXBwZW5kID0gVFJVRSkKYGBgCgoKCgoKCgo=