3

我正在尝试使用 httr R 包通过他们的 API 在 BitMex 上下订单。

我在这里找到了一些指导，在分别在对象 K 和 S 中指定了我的 API 密钥和秘密之后，我尝试了以下操作

verb <- 'POST'
expires <- floor(as.numeric(Sys.time() + 10000))
path <- '/api/v1/order'
data <- '{"symbol":"XBTUSD","price":4500,"orderQty":10}'

body <- paste0(verb, path, expires, data)
signature <- hmac(S, body, algo = 'sha256')

body_l <- list(verb = verb, expires = expires, path = path, data = data)

然后两者：

msg <- POST('https://www.bitmex.com/api/v1/order', encode = 'json', body = body_l, add_headers('api-key' = K, 'api-signature' = signature, 'api-expires' = expires))

和：

msg <- POST('https://www.bitmex.com/api/v1/order', body = body, add_headers('api-key' = K, 'api-signature' = signature, 'api-expires' = expires))

检查时给我同样的错误信息：

rawToChar(msg$content)
[1] "{\"error\":{\"message\":\"Signature not valid.\",\"name\":\"HTTPError\"}}"

我试图根据BitMex 解释使用他们的 API 的方式进行设置，但我似乎遗漏了一些东西。他们列出了一些可能导致我的无效签名问题的问题，但它们似乎并没有帮助我。当遵循他们的示例时，我得到了完全相同的哈希值，所以这似乎是有序的。

4

1 回答 1

0

在这里聚会有点晚了，但希望这会有所帮助！

您的 POST 调用只需要一些小的更改：

  • 添加content_type_json()

  • 包括.headers = c('the headers')在add_headers(). 请参见下面的示例：

library(httr)
library(digest)

S <- "your api secret"
K <- "your api key"

verb <- 'POST'
expires <- floor(as.numeric(Sys.time() + 10))
path <- '/api/v1/order'
data <- '{"symbol":"XBTUSD","price":4500,"orderQty":10}'

body <- paste0(verb, path, expires, data)
signature <- hmac(S, body, algo = 'sha256')

msg <- POST('https://www.bitmex.com/api/v1/order', 
            encode = 'json', 
            body = data, 
            content_type_json(),
            add_headers(.headers = c('api-key' = K, 
                        'api-signature' = signature, 
                        'api-expires' = expires)))

content(msg, "text")

我在 CRAN 上有一个包 - bitmexr - 它为您可能感兴趣的大多数 BitMEX 的 API 端点提供了一个包装器。仍然是一个相当“年轻”的包，所以我欢迎任何反馈！

于 2020-05-26T18:47:51.650 回答