
Extract the content type of a response
http_type(x)
A string giving the complete mime type, with all parameters stripped off.
A response
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"]]
Run the code above in your browser using DataLab