Remap hosts

Remap the hosts for a specific URL. Option to add a list of address remaps via hostMap argument.

remapHosts(proxy, address = NULL, ipAddress = NULL, hostMap = list(), ...)

Arguments

proxy

An object of class "proxy". A proxy object see proxy.

address

url that you wish to remap

ipAddress

IP Address that will handle all traffic for the address passed in

hostMap

An optional named list of address/ipAddress items.

...

Additonal function arguments

Value

invisible(proxy): An object of class "proxy" is invisibly returned. A proxy object see proxy. This allows for chaining from this function to other functions that take such an object as an argument. See examples for further details.

See also

Other overwrite functions: removeRewrites, rewriteURL, setAutoBAuth, setHeaders

Examples

## Not run: ------------------------------------
#   library(httr)
#   library(xml2)
#   # A BMP server is assummed running on port 9090
#   prxy <- proxy(bmpPort = 9090L, port = 39500L)
#   prxy %>% createHAR(ref = "httr_traffic_1")
#   ua1 <- GET("http://httpbin.org/user-agent", httr_proxy(prxy), 
#              user_agent("httr"))
#   
#   prxy %>% 
#     setHeaders(list("User-Agent" = "BrowserMob-Agent")) %>% 
#     newPage(ref = "httr_traffic_2")
#   ua2 <- GET("http://httpbin.org/user-agent", httr_proxy(prxy), 
#              user_agent("httr"))
#   
#   prxy %>% remapHosts("www.r-project.org", "www.google.com")
#   roogle <- GET("http://www.r-project.org", httr_proxy(prxy))
#   roogle %>% read_html %>% xml_find_all("//a") %>% xml_attrs
#   
#   prxy %>% 
#     newPage(ref = "httr_traffic_3")
#   auth1 <-GET("http://httpbin.org/basic-auth/user/passwd", 
#               httr_proxy(prxy))
#   prxy %>% 
#     setAutoBAuth("httpbin.org",
#                  "user", "passwd")
#   auth2 <-GET("http://httpbin.org/basic-auth/user/passwd", 
#               httr_proxy(prxy))
#   
#   auth1$status_code
#   auth2$status_code
#   content(auth2)
#   
#   prxy %>% closeProxy
#   
#   prxy <- proxy(bmpPort = 9090L, port = 39500L)
#   prxy  %>% 
#     rewriteURL(match = 'http://www\\.google\\.com.*', 
#                replace = 'http://www\\.r-project\\.org')
#   gproj <- GET("http://www.google.com/ncr", httr_proxy(prxy))
#   gproj %>% read_html %>% xml_find_all("//title") %>% xml_text
# 
#   prxy %>% removeRewrites
#   gproj <- GET("http://www.google.com/ncr", httr_proxy(prxy))
#   gproj %>% read_html %>% xml_find_all("//title") %>% xml_text
#   
#   prxy %>% closeProxy
## ---------------------------------------------