httr2::curl_translate(r"--{curl http://example.com --data-raw '{"a": 1, "b": "text"}' -H Content-Type:application/json}--")
generates
request("http://example.com") %>%
req_body_raw("{\"a\": 1, \"b\": \"text\"}", "application/json") %>%
req_perform()
it would be much nicer to instead generate
request("http://example.com") %>%
req_body_json(list(a = 1L, b = "text")) %>%
req_perform()
generates
it would be much nicer to instead generate