Extract the content type of a response
Value
A string giving the complete mime type, with all parameters
stripped off.
Examples
if (FALSE) {
r1 <- GET("http://httpbin.org/image/png")
http_type(r1)
headers(r1)[["Content-Type"]]
r2 <- GET("http://httpbin.org/ip")
http_type(r2)
headers(r2)[["Content-Type"]]
}