R httr GET 请求 400 错误 GDAX

R httr GET request 400 error GDAX

我正在尝试使用 R 访问 GDAX 并遇到以下问题。如何使用 httr.

解决问题
Response [https://api-public.sandbox.gdax.com/accounts]
  Date: 2017-12-07 20:30
  Status: 400
  Content-Type: application/json; charset=utf-8
  Size: 53 B

下面是我的代码。请注意,该问题仅存在于 httr 包中,而不存在于 RCurl(附录中提供的代码)

library(digest)
library(httr)
library(RCurl) # for base64Decode

url <- "https://api-public.sandbox.gdax.com/accounts"
secret <- # API secret from GDAX sandbox
api.key <- # API key from GDAX sandbox
passphrase <- # API passphrase from GDAX sandbox

timestamp <- format(as.numeric(Sys.time()), digits=13) # create nonce
key <- base64Decode(secret, mode="raw") # encode api secret
what <- paste0(timestamp, "GET", req.url)
sign <- base64Encode(hmac(key, what, algo="sha256", raw=TRUE))

connector <- list(url = url, nonce = timestamp, signature = sign))

GET(url=connector$url,
  add_headers(
    'CB-ACCESS-KEY'=api.key,
    'CB-ACCESS-SIGN'=connector$signature,
    'CB-ACCESS-TIMESTAMP'=connector$nonce,
    'CB-ACCESS-PASSPHRASE'=passphrase,
    'Content-Type'='application/json'
  )
)

但是,如果我使用 RCurl,那么我可以使用以下代码获取响应内容。

httpheader <- list('CB-ACCESS-KEY'=api.key,
  'CB-ACCESS-SIGN'=sign,
  'CB-ACCESS-TIMESTAMP'=timestamp,
  'CB-ACCESS-PASSPHRASE'=passphrase,
  'Content-Type'='application/json')

connector <- list(url = url, header = httpheader)

getURLContent(url = connector$url,
  curl=getCurlHandle(useragent="R"),
  httpheader=connector$header)

状态代码 400 表示您正在发送错误请求。必须缺少某些内容或格式错误。这可能是缺少用户代理字符串。

对于每个错误响应,您都会收到一条消息,其中包含您的请求被拒绝的确切说明。阅读您的回复内容。

除非沙盒被恢复(我没有任何信息表明它是),否则它在 2017 年初退役,几乎没有通信方式,据我所知,直到现在仍然如此。我在 gdax-java 库中记录了这一点。