Convert HAR request to cURL

from_request(request)

Arguments

request

a parsed HAR entry request as a list

Value

a cURL string

Examples

if (FALSE) {
   hardir <- system.file("extdata", package = "curlconverter")
   harfile <- file.path(hardir, "har1.har")
   entry <-
     fromJSON(harfile, simplifyVector = FALSE)[["log"]][["entries"]][[1]]
   req <- entry[["request"]]
   req %>% from_request
}