Я пытаюсь получить доступ к определенной 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)