fixing travis errors

R/shiny-tree-view.R

@@ -17,7 +17,7 @@
 #' @export
 xmltreeviewOutput <- function(outputId, width = '100%', height = '400px'){
   htmlwidgets::shinyWidgetOutput(outputId, 'xmltreeview', width, height,
-                                 package = 'xmlview')
+                                 package = 'htmltidy')
 }
 
 #' @rdname xmltreeview-shiny
@@ -25,4 +25,4 @@ xmltreeviewOutput <- function(outputId, width = '100%', height = '400px'){
 renderXmltreeview <- function(expr, env = parent.frame(), quoted = FALSE) {
   if (!quoted) { expr <- substitute(expr) } # force quoted
   htmlwidgets::shinyRenderWidget(expr, xmltreeviewOutput, env, quoted = TRUE)
-}
+}

R/shiny.R

@@ -6,7 +6,7 @@
 #' @export
 xmlviewOutput <- function(outputId, width = '100%', height = '400px'){
   htmlwidgets::shinyWidgetOutput(outputId, 'xmlview', width, height,
-                                 package = 'xmlview')
+                                 package = 'htmltidy')
 }
 
 #' Widget render function for use in Shiny

R/xmltreeview.R

@@ -45,7 +45,7 @@ xml_tree_view <- function(doc=NULL, scroll=FALSE,
     x = params,
     width = width,
     height = height,
-    package = 'xmlview',
+    package = 'htmltidy',
     elementId = elementId
   )
 

R/xmlview.R

@@ -43,10 +43,10 @@
 #' xml_view(xml_find_all(doc, ".//to"), style="github-gist")
 #'
 #' # some more complex daata
-#' xml_view(read_xml(system.file("extdata/dwml.xml", package="xmlview")))
+#' xml_view(read_xml(system.file("extdata/dwml.xml", package="htmltidy")))
-#' xml_view(read_xml(system.file("extdata/getHistory.xml", package="xmlview")),
+#' xml_view(read_xml(system.file("extdata/getHistory.xml", package="htmltidy")),
 #'          "androidstudio")
-#' xml_view(read_xml(system.file("extdata/input.xml", package="xmlview")),
+#' xml_view(read_xml(system.file("extdata/input.xml", package="htmltidy")),
 #'          "sunburst")
 #'
 #' # filter + apply an initial XPath query string
@@ -92,7 +92,7 @@ xml_view <- function(doc, style="default", scroll=FALSE, add_filter=FALSE,
     params,
     width = width,
     height = height,
-    package = 'xmlview',
+    package = 'htmltidy',
     elementId = elementId
   )
 
@@ -115,6 +115,6 @@ html_view <- xml_view
 highlight_styles <- function() {
   gsub("\\.css$", "",
        grep("\\.css$",
-            list.files(system.file("htmlwidgets/lib/highlightjs/styles", package="xmlview")),
+            list.files(system.file("htmlwidgets/lib/highlightjs/styles", package="htmltidy")),
             value=TRUE))
 }

inst/htmlwidgets/xmlview.js

@@ -163,4 +163,4 @@ HTMLWidgets.widget({
 
   resize: function(el, width, height, instance) {},
 
-});
+});

man/xml_view.Rd

@@ -63,10 +63,10 @@ xml_view(doc, style="obsidian")
 xml_view(xml_find_all(doc, ".//to"), style="github-gist")
 
 # some more complex daata
-xml_view(read_xml(system.file("extdata/dwml.xml", package="xmlview")))
+xml_view(read_xml(system.file("extdata/dwml.xml", package="htmltidy")))
-xml_view(read_xml(system.file("extdata/getHistory.xml", package="xmlview")),
+xml_view(read_xml(system.file("extdata/getHistory.xml", package="htmltidy")),
          "androidstudio")
-xml_view(read_xml(system.file("extdata/input.xml", package="xmlview")),
+xml_view(read_xml(system.file("extdata/input.xml", package="htmltidy")),
          "sunburst")
 
 # filter + apply an initial XPath query string