Allow big HTML by default

I don't see any downside from enabling this, and it is common with rmarkdown et al. See issue #455

Author: jeroen

DESCRIPTION

@@ -36,7 +36,7 @@ VignetteBuilder:
 Config/Needs/website: tidyverse/tidytemplate
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.2
 SystemRequirements: libxml2: libxml2-dev (deb), libxml2-devel (rpm)
 Collate: 
     'S4.R'

R/xml_parse.R

@@ -69,15 +69,15 @@ read_xml <- function(x, encoding = "", ..., as_html = FALSE, options = "NOBLANKS
 read_html <- function(x,
                       encoding = "",
                       ...,
-                      options = c("RECOVER", "NOERROR", "NOBLANKS")) {
+                      options = c("RECOVER", "NOERROR", "NOBLANKS", "HUGE")) {
   UseMethod("read_html")
 }
 
 #' @export
 read_html.default <- function(x,
                               encoding = "",
                               ...,
-                              options = c("RECOVER", "NOERROR", "NOBLANKS")) {
+                              options = c("RECOVER", "NOERROR", "NOBLANKS", "HUGE")) {
   options <- parse_options(options, xml_parse_options())
 
   suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))