You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
15 lines
407 B
15 lines
407 B
#' @export
|
|
#' @rdname tidy_html
|
|
tidy_html.response <- function(content, options=list(TidyXhtmlOut=TRUE),
|
|
verbose=FALSE) {
|
|
|
|
if (!grepl("html", content$headers[["content-type"]])) {
|
|
stop("htmltidy only parses HTML content from httr::response objects",
|
|
call.=FALSE)
|
|
}
|
|
|
|
html_txt <- httr::content(content, as="text", encoding=encoding)
|
|
|
|
tidy_html(html_txt)
|
|
|
|
}
|
|
|