Доступ Moody's API с помощью R - PullRequest
0 голосов
/ 02 мая 2020

Я пытаюсь получить доступ к определенной c службе API, предоставляемой Moody's с использованием httr. Их конкретные c инструкции приведены на этой странице , которой я пытался следовать без особой удачи. Я продолжаю получать HTTP 400, что, скорее всего, связано с неправильными параметрами, передаваемыми в GET.

Мой текущий код выглядит примерно так, на что я опирался из учетной записи Moody's github .

accKey  <- *hidden*
encKey  <- *hidden*

timeStamp <- format(as.POSIXct(Sys.time()), "%Y-%m-%dT%H:%M:%SZ", tz="UTC")
hashMsg   <- iconv(paste(timeStamp, accKey, sep=""), "UTF-8")
signature <- hmac(encKey, hashMsg, "sha256")

req <- GET("https://api.creditedge.com/v1/ping?sdkVersion=1.0.0.0 HTTP/1.1", 
       httr::add_headers("Date" = timeStamp,
                         "X-ApiAuth-PublicKey" = accKey,
                         "X-ApiAuth-Signature" = signature))
stop_for_status(req)
content(req)
...