if (FALSE) {
(x <- HttpClient$new(url = "https://hb.opencpu.org"))
(res <- x$get())
## see the content type
res$response_headers
## check that the content type is text/html
res$raise_for_ct_html()
## it's def. not json
# res$raise_for_ct_json()
## give custom content type
res$raise_for_ct("text/html")
# res$raise_for_ct("application/json")
# res$raise_for_ct("foo/bar")
## check charset in addition to the media type
res$raise_for_ct_html(charset = "utf-8")
# res$raise_for_ct_html(charset = "utf-16")
# warn instead of stop
res$raise_for_ct_json(behavior = "warning")
}
Run the code above in your browser using DataLab