Я пытаюсь создать запрос на R для платформы обмена Exmo, которая требует аутентификации и одноразового номера. (https://exmo.com/en/api#/authenticated_api) Я пробовал несколько кодов, но продолжаю получать ту же ошибку.
Мой код:
query <-
list(
nonce = as.numeric(as.POSIXct(Sys.time()))
)
signature <-
digest::hmac(
key = "secretkey",
object = paste(names(query), query, sep = "=", collapse = "&"),
algo = "sha512"
)
(acc <- POST(
url= "https://api.exmo.com/v1/user_info/",
add_headers(Key = "publickey"),
add_headers(Sign = "secret key"),
add_headers(nonce=nonce),
query = c(signature = signature),
verbose()
))
library(jsonlite)
get_exmo<- content(acc, as="text") # Convert to "character"
(get_exmo_json <- fromJSON(get_exmo))
Я получаю ошибку:
$ result
[1] FALSE
$ error [1] "40007: неверный параметр формата'nonce' "
Есть идеи, как добавить правильный формат nonce?