Как записать параметр -d из команды curl в функцию R httr? - PullRequest
Новая
       9

Как записать параметр -d из команды curl в функцию R httr?

0 голосов
/ 07 сентября 2018

У меня есть этот код curl для доступа к определенному API, и он работает нормально. 

curl -X POST https://di-api.drillinginfo.com/v2/direct-access/tokens -H "authorization: Basic MTM1NjMtZGlyZW..bla bla...YmMzNzYyYzQ==" -H "cache-control: no-cache" -H "content-type: application/x-www-form-urlencoded" -H "x-api-key: <<I've used my key>>" -d "grant_type=client_credentials"

Я пытался выполнить это в R с помощью пакета httr и просто не смог получить ответ, кроме кода состояния 404. Это то, что я использую 

library(httr)
di_key <- "c0dad52a932e3268e32234122e759f78"
url <- (paste("https://di-api.drillinginfo.com/v2/direct-access/tokens"))
#url <- gsub(" ", "", url, fixed = TRUE)
req <- POST(url, add_headers("X-API-KEY" = di_key, "Content-Type" = "application/x-www-form-urlencoded", "Authorization" = "Basic MTM1NjMtZGlyZWN0LWFjY2VzczowMjU5M2VlNS1mY2RlLTQwY2ItODE1Yy1kZGU2YmMzNzYyYzQ==", "cache-control" = "no-cache" ), body = list("grant_type" = "client_credentials")) #a request object
json <- content(req, as = "text", encoding = "UTF-8")

Мое основное сомнение касается команды -d в команде curl, перевел ли я ее в настоящее время в функцию R-кода httr. Если все в порядке, то я сейчас совершенно не понимаю, как я могу попытаться отладить это. Любая помощь приветствуется, спасибо!

...