medewitt
commented
5 years ago This is what I had to do in order to get this data:
library(tidyverse)
library(rvest)
library(httr)
library(jsonlite)
#define the url
bc_url <- "https://bittrex.com/api/v1.1/public/getcurrencies"
#request the data from the website
bc_return <- GET(bc_url)
#parse the data into text
bc_content <- content(bc_return, "text")
# save the date information from the header as there is no date info in payload
trade_day <- bc_return$date
#pull out the data as a json
con <- fromJSON(bc_content)[["result"]]
#add the date field back in
final_data <- cbind(con, trade_day = trade_day)
# to save to a master file
write_csv(final_data, "my_data.csv")
# or to save to a daily file
write_csv(final_data, paste0(Sys.Date(),"_my_data.csv")This is just daily so if you want to append it to a master file instead of write_csv you could do:
write_csv(final_data, path, append = TRUE) and it would tack on each day making a longer csv.
If you save each day as a unique file (most safe in my book) you could then pull them back together with
my_files <- list.files(pattern = "my_data.csv")
complete_data <- map_dfc(my_files, read_csv)
francojc
haquer
Specifically: https://bittrex.com/api/v1.1/public/getcurrencies