Я пытался выполнить запрос Binance Get для получения информации об учетной записи из Binance API. Когда я запускаю свой код, я получаю HTTP / 1.1 400 Bad Request с сервера.
Вот мой код:
timestamp <-as.character(jsonlite::fromJSON(content(GET("https://api.binance.com/api/v1/time"), "text"))$serverTime + 999)
recvWindow <- '1000000000000000000000000'
postmsg <- paste0("timestamp=", timestamp, "&recvWindow=", recvWindow)
signature <-openssl::sha256(postmsg, key="MY SECRET KEY")
url<-"https://api.binance.com/api/v3/account"
GET(
url,
add_headers("X-MBX-APIKEY" = "MY PUBLIC KEY"),
query=list("timestamp"=timestamp, "recvWindow"=recvWindow, "signature"=signature),
verbose()
)
Любая помощь будет принята.