# NOT RUN {
library(httr)
my_ip <- straighten("curl 'https://httpbin.org/ip'") %>% make_req()
# external test which captures live data
content(my_ip[[1]](), as="parsed")
# }
# NOT RUN {
curl_line <- readLines(system.file("extdata/curl8.txt", package="curlconverter"),
warn=FALSE)
st <- straighten(curl_line, quiet=FALSE)
req <- make_req(st)
# }
Run the code above in your browser using DataLab