From fcc83f9df92988d9ceaff8e915576baa92c15c42 Mon Sep 17 00:00:00 2001
From: Bob Rudis <bob@rudis.net>
Date: Mon, 3 Oct 2016 00:02:38 -0400
Subject: [PATCH] forgot CRAN & Travis can't do headless browsing for widget
 testing

---
 R/xmltreeview.R                        | 16 +++++++++++++++-
 R/xmlview.R                            | 12 +++++++++++-
 inst/examples/examples-xml_tree_view.R | 13 -------------
 inst/examples/rss-example.R            | 11 -----------
 man/xml_tree_view.Rd                   |  2 ++
 man/xml_view.Rd                        | 11 +++++++++++
 6 files changed, 39 insertions(+), 26 deletions(-)
 delete mode 100644 inst/examples/examples-xml_tree_view.R
 delete mode 100644 inst/examples/rss-example.R

diff --git a/R/xmltreeview.R b/R/xmltreeview.R
index cd46a3b..4a4df4f 100644
--- a/R/xmltreeview.R
+++ b/R/xmltreeview.R
@@ -19,7 +19,21 @@
 #'       or used in a browser context vs an IDE viewer context.
 #' @export
 #' @references \href{https://github.com/juliangruber/xml-viewer}{xml-viewer}
-#' @example inst/examples/examples-xml_tree_view.R
+#' @examples \dontrun{
+#' library(htmltidy)
+#'
+#' # from ?xml2::read_xml
+#' cd <- xml2::read_xml("http://www.xmlfiles.com/examples/cd_catalog.xml")
+#'
+#' xml_tree_view(cd)
+#'
+#' htmltools::browsable(
+#'   htmltools::tagList(
+#'     xml_tree_view(cd, width = "100%", height = "300px"),
+#'     xml_view(cd)
+#'   )
+#' )
+#' }
 xml_tree_view <- function(doc=NULL, scroll=FALSE,
                           elementId=NULL, width="100%", height=NULL) {
 
diff --git a/R/xmlview.R b/R/xmlview.R
index 8bbe9ef..be6551e 100644
--- a/R/xmlview.R
+++ b/R/xmlview.R
@@ -27,7 +27,7 @@
 #' @export
 #' @references \href{https://highlightjs.org/}{highlight.js},
 #'             \href{http://www.eslinstructor.net/vkbeautify/}{vkbeautify}
-#' @examples
+#' @examples \dontrun{
 #' library(xml2)
 #'
 #' # plain text
@@ -52,6 +52,16 @@
 #' # filter + apply an initial XPath query string
 #' xml_view(read_xml(system.file("extdata/dwml.xml", package="xmlview")),
 #'          add_filter=TRUE, apply_xpath=".//temperature")
+#'
+#' doc <- read_xml("http://www.npr.org/rss/rss.php?id=1001")
+#'
+#' str(doc)
+#'
+#' xml_view(doc, add_filter=TRUE)
+#' xml2::xml_find_all(doc, './/dc:creator', ns=xml2::xml_ns(doc))
+#'
+#' xml_text(xml2::xml_find_all(doc, './/link[contains(., "soccer")]', ns=xml2::xml_ns(doc)))
+#' }
 xml_view <- function(doc, style="default", scroll=FALSE, add_filter=FALSE,
                      apply_xpath=NULL, elementId=NULL,
                      width="100%", height=NULL) {
diff --git a/inst/examples/examples-xml_tree_view.R b/inst/examples/examples-xml_tree_view.R
deleted file mode 100644
index 855b9a4..0000000
--- a/inst/examples/examples-xml_tree_view.R
+++ /dev/null
@@ -1,13 +0,0 @@
-library(htmltidy)
-
-# from ?xml2::read_xml
-cd <- xml2::read_xml("http://www.xmlfiles.com/examples/cd_catalog.xml")
-
-xml_tree_view(cd)
-
-htmltools::browsable(
-  htmltools::tagList(
-    xml_tree_view(cd, width = "100%", height = "300px"),
-    xml_view(cd)
-  )
-)
diff --git a/inst/examples/rss-example.R b/inst/examples/rss-example.R
deleted file mode 100644
index 3aa3b92..0000000
--- a/inst/examples/rss-example.R
+++ /dev/null
@@ -1,11 +0,0 @@
-library(xml2)
-
-doc <- read_xml("http://www.npr.org/rss/rss.php?id=1001")
-
-str(doc)
-
-xml_view(doc, add_filter=TRUE)
-xml2::xml_find_all(doc, './/dc:creator', ns=xml2::xml_ns(doc))
-
-xml_text(xml2::xml_find_all(doc, './/link[contains(., "soccer")]', ns=xml2::xml_ns(doc)))
-
diff --git a/man/xml_tree_view.Rd b/man/xml_tree_view.Rd
index 9856270..d0a9f22 100644
--- a/man/xml_tree_view.Rd
+++ b/man/xml_tree_view.Rd
@@ -38,6 +38,7 @@ Large HTML or XML content may take some time to render properly. It is suggested
       or used in a browser context vs an IDE viewer context.
 }
 \examples{
+\dontrun{
 library(htmltidy)
 
 # from ?xml2::read_xml
@@ -52,6 +53,7 @@ htmltools::browsable(
   )
 )
 }
+}
 \references{
 \href{https://github.com/juliangruber/xml-viewer}{xml-viewer}
 }
diff --git a/man/xml_view.Rd b/man/xml_view.Rd
index 413cfa6..37f2595 100644
--- a/man/xml_view.Rd
+++ b/man/xml_view.Rd
@@ -48,6 +48,7 @@ Large HTML or XML content may take some time to render properly. It is suggested
       or used in a browser context vs an IDE viewer context.
 }
 \examples{
+\dontrun{
 library(xml2)
 
 # plain text
@@ -72,6 +73,16 @@ xml_view(read_xml(system.file("extdata/input.xml", package="htmltidy")),
 # filter + apply an initial XPath query string
 xml_view(read_xml(system.file("extdata/dwml.xml", package="xmlview")),
          add_filter=TRUE, apply_xpath=".//temperature")
+
+doc <- read_xml("http://www.npr.org/rss/rss.php?id=1001")
+
+str(doc)
+
+xml_view(doc, add_filter=TRUE)
+xml2::xml_find_all(doc, './/dc:creator', ns=xml2::xml_ns(doc))
+
+xml_text(xml2::xml_find_all(doc, './/link[contains(., "soccer")]', ns=xml2::xml_ns(doc)))
+}
 }
 \references{
 \href{https://highlightjs.org/}{highlight.js},