Does the request have content associated with it?

Does the request have content associated with it?

has_content(x)

Examples

has_content(POST("http://httpbin.org/post", body = FALSE))
#> [1] FALSE
has_content(HEAD("http://httpbin.org/headers"))
#> [1] FALSE