remapHosts: Remap hosts

In johndharrison/bmproxy: Wrapper around the 'BrowserMob Proxy' REST API for R

Description

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

Usage

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

## End(Not run)

johndharrison/bmproxy documentation built on May 19, 2019, 5:13 p.m.