From ae485870fff7a7289fdc6181b06600a9c3c15474 Mon Sep 17 00:00:00 2001
From: wkumler <wkumler@uw.edu>
Date: Mon, 10 May 2021 12:54:07 -0700
Subject: [PATCH] Fixed multi-line comment not properly escaped, causing
 unintended code to run

---
 R/xml_text.R    | 3 +--
 man/xml_text.Rd | 3 +--
 2 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/R/xml_text.R b/R/xml_text.R
index bad8d1f9..0aad2974 100644
--- a/R/xml_text.R
+++ b/R/xml_text.R
@@ -17,8 +17,7 @@
 #' x <- read_xml("<p>   Some text    </p>")
 #' xml_text(x, trim = TRUE)
 #'
-#' # xml_double() and xml_integer() are useful for extracting numeric
-#' attributes
+#' # xml_double() and xml_integer() are useful for extracting numeric attributes
 #' x <- read_xml("<plot><point x='1' y='2' /><point x='2' y='1' /></plot>")
 #' xml_integer(xml_find_all(x, "//@x"))
 #' @export
diff --git a/man/xml_text.Rd b/man/xml_text.Rd
index 655d56a3..825b4c95 100644
--- a/man/xml_text.Rd
+++ b/man/xml_text.Rd
@@ -44,8 +44,7 @@ xml_text(xml_find_all(x, "//x"))
 x <- read_xml("<p>   Some text    </p>")
 xml_text(x, trim = TRUE)
 
-# xml_double() and xml_integer() are useful for extracting numeric
-attributes
+# xml_double() and xml_integer() are useful for extracting numeric attributes
 x <- read_xml("<plot><point x='1' y='2' /><point x='2' y='1' /></plot>")
 xml_integer(xml_find_all(x, "//@x"))
 }