Проблема с авторизацией в COINAPI REST API с пользовательским заголовком и ключом в R - PullRequest
Новая
       30

Проблема с авторизацией в COINAPI REST API с пользовательским заголовком и ключом в R

0 голосов
/ 31 марта 2019

Я хотел бы подключиться к ресурсам COINAPI. Они предоставляют два типа авторизации. https://docs.coinapi.io/#authorization

  1. Пользовательский заголовок авторизации с именем X-CoinAPI-Key
  2. Параметр строки запроса с именем apikey

Когда я использую первый метод, он работает с основными запросами. Но ответьте с ошибкой в ​​более продвинутом. 

endpoint<-"/v1/exchangerate/BTC?apikey="

Но когда я указываю конечную точку следующим образом: 

endpoint <- "/v1/trades/BITSTAMP_SPOT_BTC_USD/history?time_start=2016-01-01T00:00:00/?apikey="

Я получил ошибку 401.

Второй метод пока не работает, я не очень понимаю, как я могу указать здесь произвольное имя заголовка.

Мне нужно получить данные отсюда:

https://rest.coinapi.io/v1/ohlcv/BTC/USD/history?period_id=1DAY&time_start=2017-01-02T00:00:00.0000000Z&time_end=2019-01-02T00:00:00.0000000Z&limit=10000&include_empty_items=TRUE

Буду признателен за любую помощь в этом вопросе.

1. метод (рабочий) 

library(httr)
library(jsonlite)

base     <- "https://rest.coinapi.io"
endpoint <- "/v1/exchangerate/BTC?apikey="
api_key  <- <KEY>
call <- paste0(base, endpoint, api_key)
call  

get_prices <- GET(call)
http_status(get_prices)
class(get_prices)
get_prices_text <- content(get_prices, "text", encoding = 'UTF-8')  
get_prices_json <- fromJSON(get_prices_text, flatten = TRUE) 
names(get_prices_json)
get_prices_json$asset_id_base
head(get_prices_json$rates)
data<-as.data.frame(get_prices_json)

2. метод (не работает) 

key<-<KEY>
GET(
  url = sprintf("https://rest.coinapi.io/v1/exchangerate/BTC"),
  add_headers(`Authorization` = sprintf("X-CoinAPI-Key: ", key))
) -> res
http_status(res)

1 Ответ

0 голосов
/ 01 апреля 2019

Из прочтения примеров в документации видно, что он просто ищет простой заголовок, а не заголовок "Авторизация".Попробуйте это 

GET(
  url = sprintf("https://rest.coinapi.io/v1/exchangerate/BTC"),
  add_headers(`X-CoinAPI-Key` = key)
) -> res
http_status(res)
...