Use better quoting in curl_translate()

[mgirlich]

library(httr2)

cmd <- r"--{curl 'http://example.com' \
  -X 'PATCH' \
  -H 'Content-Type: application/json' \
  --data-raw '{"data":{"x":1,"y":"a","nested":{"z":[1,2,3]}}} ' \
  --compressed}--"
curl_translate(cmd)

Before:

request("http://example.com") %>% 
  req_method("PATCH") %>% 
  req_body_raw("{\"data\":{\"x\":1,\"y\":\"a\",\"nested\":{\"z\":[1,2,3]}}} ", "application/json") %>% 
  req_perform()

After:

request("http://example.com") %>% 
  req_method("PATCH") %>% 
  req_body_raw('{"data":{"x":1,"y":"a","nested":{"z":[1,2,3]}}} ', "application/json") %>% 
  req_perform()

[hadley]

Nice!

[hadley]

Do you want to become an author so you can just merge these yourself? 😄 If so, do another PR adding yourself to the authors list.

[mgirlich]

Thanks, done in #270 😄