401 Несанкционированная ошибка Binance API в r

Question

Я пытаюсь создать новый заказ через API Binance, используя RStudio.

Я нашел официальные документы Binance по API и понял, что мне следует использовать:

POST /api/v3/order (HMAC SHA256).

Следующий скрипт не работает и выдает код состояния: HTTP/1.1 401 Unauthorized

key <- "*[my key]*"
secret <- "*[my secret key]*"
url='https://api.binance.com/api/v3/order'
timestamp <- as.character(jsonlite::fromJSON(content(GET('https://api.binance.com/api/v1/time'), "text"))$serverTime + 999)
query <- list( "symbol" = "XLMBTC", "side" = "BUY", "type" = "MARKET", "quantity" = 10, "recvWindow" = 5000, "timestamp" = timestamp )
signature <- digest::hmac(key = secret, object = paste(names(query), query, sep = "=", collapse = "&"), algo = "sha256")
POST(url, add_headers("X-MBX-APIKEY"= key), query = c(query, signature = signature), verbose())

Есть ли ошибка в моей кодировке? Я пробовал это однажды, и тогда это сработало на отлично. Однако сейчас я не могу придумать рабочий скрипт.

Здесь вы можете найти документацию по Binance API: https://github.com/binance-exchange/binance-official-api-docs/blob/master/rest-api.md

Кто-нибудь может мне помочь?

Answer 1

Это уже решено. Я проверил этот сайт для решения: https://gunbot.shop/error-response-code-400-on-binance-how-to-fix/

Проблема заключалась в том, что мой API и ключ SECRET были сломаны.