Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/hrbrmstr/xmlview
:page_with_curl: Format, Query and Pretty Print 'HTML'/'XML' Content in R (RStudio viewer or browser)
https://github.com/hrbrmstr/xmlview
Last synced: 18 days ago
JSON representation
:page_with_curl: Format, Query and Pretty Print 'HTML'/'XML' Content in R (RStudio viewer or browser)
- Host: GitHub
- URL: https://github.com/hrbrmstr/xmlview
- Owner: hrbrmstr
- License: other
- Archived: true
- Created: 2016-01-12T15:37:37.000Z (almost 9 years ago)
- Default Branch: master
- Last Pushed: 2017-11-12T14:17:56.000Z (about 7 years ago)
- Last Synced: 2024-08-01T00:55:08.656Z (3 months ago)
- Language: JavaScript
- Homepage:
- Size: 4.01 MB
- Stars: 46
- Watchers: 7
- Forks: 4
- Open Issues: 5
-
Metadata Files:
- Readme: README.Rmd
- License: LICENSE
Awesome Lists containing this project
README
---
output:
html_document:
keep_md: true
md_document:
variant: markdown_github
---
`xmlview` : View formatted and "pretty printed" HTML/XML in R
(if you need JSON, \code{list} or general object viewing in R check out `xmlview`'s sister package, [jsonview](https://github.com/hrbrmstr/xmlview))
It is intended for interactive use. When working with XML data, it's often times
advantageous to be able to see the document and possibly even more advantageous to
see the results of XPath or CSS selector slicing & dicing.
You can pass in:
- plain character HTML/XML
- an `xml2` `xml_document`
- an `xml2` `xml_nodeset`
- an `xml2` `xml_node`
and view the formatted & pretty-printed result in the RStudio viewer or web browser.
The widget uses [vkbeautify](http://www.eslinstructor.net/vkbeautify/), [highlight.js](https://highlightjs.org) and [xml-viewer](https://github.com/juliangruber/xml-viewer) to do all the work.
The following functions are implemented:
- `xml_view`: view HTML/XML nodes
- `xml_tree_view`: view HTML/XML nodes
Please `devtools::install_github("ramnathv/htmlwidgets")` for this as we're now using the more modern (and bleeding edge `htmlwidgets` functionality).
### News
- Version 0.4.7 : Pointer cursor for `xml_tree_view()`
- Version 0.4.6 : Barebones support for substituting the actual `doc` variable in the generated R code with the passed-in variable name (only really valid for passing in a varialbe that holds an `xml_document`)
- Version 0.4.5 : Consistent `scroll` parameter and refactored `xml_view()` (enables multiple "xml views" per Rmd and prbly Shiny toos)
- Version 0.4.1 : Fixed bug in R-code generation for firefox & linux RStudio Desktop viewer
- Version 0.4.0 : Enable passing in an initial XPath query string
- Version 0.3.3 : Code cleanup
- Version 0.3.2 : Works with Firefox now
- Version 0.3.1 : Fixed a bug that was causing `xml_view` to not work on Linux RStudio Desktop
- Version 0.3.0 : @timelyportfolio added `xml_tree_view()`
- Version 0.2.2 : added "generate R code" button
- Version 0.2.1 : support for namespaces
- Version 0.2.0 : added `add_filter` option to `xml_view()` for live XPath filtering (so you can see the results immediately and then just copy/paste the XPath string back into R)
- Version 0.1.0 released
### Installation
```{r eval=FALSE}
devtools::install_github("hrbrmstr/xmlview")
```
```{r echo=FALSE, message=FALSE, warning=FALSE, error=FALSE}
options(width=120)
```
### Usage
```{r eval=FALSE}
library(xmlview)
library(xml2)
# available styles
highlight_styles()
# plain character
txt <- "ToveJaniReminderDon't forget me this weekend!"
xml_view(txt)
# xml document
doc <- read_xml(txt)
xml_view(doc, style="obsidian")
xml_view(xml_find_all(doc, ".//to"), style="github-gist")
xml_view(read_xml(system.file("extdata/dwml.xml", package="xmlview")))
xml_view(read_xml(system.file("extdata/getHistory.xml", package="xmlview")), "androidstudio")
xml_view(read_xml(system.file("extdata/input.xml", package="xmlview")), "sunburst")
# SO: http://stackoverflow.com/questions/34664028/extract-xml-data-using-xmlsapply-in-r
doc <- read_xml("http://d396qusza40orc.cloudfront.net/getdata%2Fdata%2Frestaurants.xml")
xml_view(xml_find_all(doc, ".//*[contains(@_id, '7')]"), style="monokai_sublime")
```
### Screen shot (plain viewer)
### Screen recording of filtering
Here is the R code (it's a bit hard to read):
```{r eval=FALSE}
library(xml2)
doc <- read_xml("http://www.npr.org/rss/rss.php?id=1001")
str(doc)
xml_view(doc, add_filter=TRUE)
# The first copied code:
xml2::xml_find_all(doc, './/dc:creator', ns=xml2::xml_ns(doc))
# The second copied code:
xml_text(xml2::xml_find_all(doc, './/link[contains(., "soccer")]', ns=xml2::xml_ns(doc)))
```
