[pugi] provide as.character.pugi_xml

Author: JanMarvin

NAMESPACE

@@ -3,6 +3,7 @@
 S3method("+",fmt_txt)
 S3method("[",wb_data)
 S3method(as.character,fmt_txt)
+S3method(as.character,pugi_xml)
 S3method(print,fmt_txt)
 S3method(print,pugi_xml)
 S3method(xl_open,default)

R/pugixml.R

@@ -208,6 +208,24 @@ print.pugi_xml <- function(x, indent = " ", raw = FALSE, attr_indent = FALSE, ..
   if (raw) cat("\n")
 }
 
+#' as.character pugi_xml
+#' @method as.character pugi_xml
+#' @param x a class pugi_xml object
+#' @param ... additional arguments see [print.pugi_xml()]
+#' @examples
+#'   # a pointer
+#'   x <- read_xml("<a><b/></a>")
+#'   as.character(x)
+#'   as.character(x, raw = FALSE)
+#' @export
+as.character.pugi_xml <- function(x, ...) {
+  args <- list(...)
+  indent <- args$indent %||% " "
+  raw <- args$raw %||% TRUE
+  attr_indent <- args$attr_indent %||% FALSE
+  printXPtr(x, indent = indent, raw = raw, attr_indent = attr_indent)
+}
+
 #' loads character string to pugixml and returns an externalptr
 #' @details
 #' might be useful for larger documents where single nodes are shortened

man/as.character.pugi_xml.Rd

@@ -1,6 +1,9 @@
 
 test_that("read_xml", {
 
+  xml <- "<a><b/></a>"
+  expect_equal(as.character(read_xml(xml)), xml)
+
   exp <- "<a/>"
   got <- read_xml("<a/>", empty_tags = FALSE, pointer = FALSE)
   expect_equal(got, exp)