Создание заказа API Binance с помощью R

пожалуйста помоги...:)

Я пытаюсь создать заказ через Binance API в RStudio, но не могу его создать.

Это код, который я использую:

apiKey <- "*My API key*"
secretKey <- "*My Secret key*"

timestamp <- GET(url = "https://api.binance.com", path = "/api/v1/time")
timestamp=content(timestamp, as = "parsed")
timestamp=timestamp$serverTime - 1542213129131.6

"symbol" = "BTS-BTC"
"side" = "SELL"
"type" = "MARKET"
"quantity" = 1000
"recvWindow" = 5000000000000
"timeInForce" = "GTC"


postmsg <- paste0("timestamp = ", timestamp,"&recvWindow = ",recvWindow,"&symbol = ",symbol,
"&side = ",side,"&type = ",type,"&quantity = ",quantity,"&timeInForce = ",timeInForce)

signature <- openssl::sha256(postmsg, key=secretKey)

POST(
url = "https://api.binance.com",
path = "api/v3/order",
content_type('application/json'), add_headers(.headers = c("X-MBX- APIKEY"=apiKey)),
query=list(signature=signature), 
encode = 'json'
)

Я получаю ответ: Ответ [https://api.binance.com/api/v3/order?signature=3e70e503ca46fa86d11a3c4d1c4fa1486be78f6d9c1c09b7e05ea4ae04c303e7] Дата: 2018-12-05 14:29 Статус: 400 Тип содержимого: приложение / json; charset = utf-8 Размер: 95 B

Но на моей учетной записи Binance ничего не происходит: /

Что я делаю неправильно?

Спасибо...