r - 制定对 CoinSpot API 的 POST 请求

Question

我正在努力查询 CoinSpot API。
Read Only API 的端点是:https://www.coinspot.com.au/api/ro
该文件指出:

All requests to the API will need to include the following securitydata.

Headers: key - Your API key generated from the settings page sign -The POST data is to be signed using your secret key according toHMAC-SHA512 method. Post Params: nonce - Any integer value which mustalways be greater than the previous requests nonce value.

我尝试通过以下方式查询“列出我的余额”端点: https://www.coinspot.com.au/api/ro/my/balances
但是，我在下面制定的代码总是返回错误:“无效/缺少随机数”。
我尝试了许多不同的变体和方法，但始终是相同的错误。

require(httr)

key <- "68z...39k"
secret <- "71A...48i"

result <- POST("https://www.coinspot.com.au/api/ro/my/balances",
               body = list('nonce'=as.integer(as.POSIXct(Sys.time()))), add_headers("key"=key,"sign"=openssl::sha512("https://www.coinspot.com.au/api/ro/my/balances",key = secret)))

content(result)

非常感谢任何帮助。

Answer 1

对我来说，我在正文中缺少 JSON 字符串编码的 postdata，包括 nonce。一旦我添加了它，它就开始工作了。