# NOT RUN {
   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
# }
Run the code above in your browser using DataLab