Add read_xml method for httr

[hadley]

so (e.g.) read_xml(POST(url)) can work.

[hadley]

read_xml.response <- function(x, encoding = "", base_url = "", ...,
                              as_html = FALSE, options = "NOBLANKS") {

  content <- httr::content(x, type = "raw")
  read_xml(content, encoding = encoding, base_url = base_url, as_html = as_html,
    option = options, ...)

}

[hadley]

And corresponding read_html

[hadley]

And test: read_xml(httr::GET("http://httpbin.org/xml"))