R/set_config.R

In rpkgs/curlR: What the Package Does (One Line, Title Case)

header <- "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/87.0.4280.66 Safari/537.36"

#' @import httr
#' @export
init_httr <- function() {
  set_config(c(
    # verbose(),
    timeout(60),
    add_headers(
      Connection = "keep-alive",
      `Accept-Encoding` = "gzip, deflate, br",
      `Accept-Language` = "zh-CN,zh;q=0.8,en;q=0.6",
      # Host = "modis.ornl.gov",
      # Origin = "https://modis.ornl.gov",
      # Referer = url,
      # `Upgrade-Insecure-Requests` = 1,
      `User-Agent` = header
    )
  ))
}
# handle_reset("https://modis.ornl.gov") #quite important
# Sys.setlocale("LC_TIME", "english")#