# NOT RUN {
proxy("http://97.77.104.22:3128")
proxy("97.77.104.22:3128")
proxy("http://97.77.104.22:3128", "foo", "bar")
proxy("http://97.77.104.22:3128", "foo", "bar", auth = "digest")
proxy("http://97.77.104.22:3128", "foo", "bar", auth = "ntlm")
# socks
proxy("socks5://localhost:9050/", auth = NULL)
# }
# NOT RUN {
# with proxy (look at request/outgoing headers)
# (res <- HttpClient$new(
# url = "http://www.google.com",
# proxies = proxy("http://97.77.104.22:3128")
# ))
# res$proxies
# res$get(verbose = TRUE)
# vs. without proxy (look at request/outgoing headers)
# (res2 <- HttpClient$new(url = "http://www.google.com"))
# res2$get(verbose = TRUE)
# Use authentication
# (res <- HttpClient$new(
# url = "http://google.com",
# proxies = proxy("http://97.77.104.22:3128", user = "foo", pwd = "bar")
# ))
# another example
# (res <- HttpClient$new(
# url = "http://ip.tyk.nu/",
# proxies = proxy("http://200.29.191.149:3128")
# ))
# res$get()$parse("UTF-8")
# }
Run the code above in your browser using DataLab