Write a complicated curl request's R equivalent

user_13174189 0
Viewed 88

I have a curl request:

curl -k --insecure -X POST https://somehttp -H 'Content-Type: application/x-www-form-urlencoded' -H 'cache-control: no-cache' -d 'grant_type=password&client_id=my_id&username=admin&password=admin&client_secret=k6897pyy-1h7l-11q0-lp10-s20sg4erlq44' | jq .access_token

How could i write that request in R. I've seen examples of simple ones, but not this complicated.

rcurl httr r curl
1 Answers

Obviously I can't test this with the example you provided, but this should get you close. First ensure you populate these variables correctly:

url       <- "http://www.somehttp.com"
my_id     <- "my_id"
username  <- "admin"
password  <- "admin"
my_secret <- "k6897pyy-1h7l-11q0-lp10-s20sg4erlq4"

Now the following code prepares the request, sends it, and parses the response (I'm assuming it is json)

library(httr)

H <- add_headers(`Content-Type`= "application/x-www-form-urlencoded",
                  `cache-control` = "no-cache")

form_body <- list(grant_type    = "password", 
                  client_id     = my_id,
                  username      = username, 
                  password      = password,
                  client_secret = my_secret)

res <- POST(url = url, body = form_body, encode = "form", H)

content(res, "parsed")
user_125003150
Related