R/read_fragment.R

In xmlwriter: Fast and Elegant XML Generation

#' Read an XML fragment from a string
#'
#' Reads a xml fragment from a string, a connection or a raw vector using
#' [xml2::read_xml()], and turns it into a [xml_fragment()].
#' @export
#' @param x A string, a connection or a raw vector
#' @param ... passed to [xml2::read_xml()]
#' @return an object of class `xml_fragment`
#' @family fragments
read_fragment <- function(x, ...){
  if (!requireNamespace("xml2", quietly = TRUE)) {
    stop("xml2 is required to use this function")
  }

  fragments <- lapply(x, function(s){
     f <-
       xml2::read_xml(s, ...) |>
       xml2::as_list()
     class(f) <- "xml_fragment"
     f
  })

  do.call(c, fragments)
}