R/html.R
In pmur002/layoutengine: Render HTML
Defines functions
htmlElement.xml_node
htmlElement.character
htmlElement
htmlDocument.xml_document
htmlDocument.character
htmlDocument
buildDoc
Documented in
htmlDocument
htmlDocument.character
htmlDocument.xml_document
htmlElement
htmlElement.character
htmlElement.xml_node
## Interface for describing an HTML document to 'layoutEngine'
buildDoc <- function(html, css="") {
doc <- read_html(html)
if (nchar(css) > 0) {
## add CSS to document (adding <head> if necessary)
head <- xml_find_first(doc, "head")
if (is.na(head))
head <- xml_add_child(doc, "head", .where=0)
xml_add_child(head,
"style",
type="text/css",
css)
}
doc
}
## A complete HTML document (in some format)
htmlDocument <- function(x, ...) {
UseMethod("htmlDocument")
}
## Assume character value is HTML
htmlDocument.character <- function(x,
css="",
assets=NULL,
...) {
doc <- buildDoc(paste(x, collapse=""), css)
obj <- list(doc=doc, assets=assets)
class(obj) <- c("htmlDocument")
obj
}
## If already an xml2::xml_document, just check it is HTML
htmlDocument.xml_document <- function(x,
css="",
assets=NULL,
...) {
doc <- buildDoc(as.character(x), css)
obj <- list(doc=doc, assets=assets)
class(obj) <- c("htmlDocument")
obj
}
## A standalone element
## (which we wrap within an HTML document,
## BUT keep track of the element of interest)
htmlElement <- function(x, ...) {
UseMethod("htmlElement")
}
## Assume character value is HTML element
htmlElement.character <- function(x,
css="",
assets=NULL,
...) {
## Will auto-complete HTML doc (with element as only content within body)
doc <- buildDoc(paste(x, collapse=""), css)
obj <- list(doc=doc, assets=assets)
class(obj) <- c("htmlElement", "htmlDocument")
obj
}
## Valid XML, just check ok HTML
htmlElement.xml_node <- function(x,
css="",
assets=NULL,
...) {
doc <- buildDoc(as.character(x), css)
obj <- list(doc=doc, assets=assets)
class(obj) <- c("htmlElement", "htmlDocument")
obj
}
pmur002/layoutengine documentation built on June 20, 2020, 10:32 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Defines functions htmlElement.xml_node htmlElement.character htmlElement htmlDocument.xml_document htmlDocument.character htmlDocument buildDoc
Documented in htmlDocument htmlDocument.character htmlDocument.xml_document htmlElement htmlElement.character htmlElement.xml_node
## Interface for describing an HTML document to 'layoutEngine'
buildDoc <- function(html, css="") {
doc <- read_html(html)
if (nchar(css) > 0) {
## add CSS to document (adding <head> if necessary)
head <- xml_find_first(doc, "head")
if (is.na(head))
head <- xml_add_child(doc, "head", .where=0)
xml_add_child(head,
"style",
type="text/css",
css)
}
doc
}
## A complete HTML document (in some format)
htmlDocument <- function(x, ...) {
UseMethod("htmlDocument")
}
## Assume character value is HTML
htmlDocument.character <- function(x,
css="",
assets=NULL,
...) {
doc <- buildDoc(paste(x, collapse=""), css)
obj <- list(doc=doc, assets=assets)
class(obj) <- c("htmlDocument")
obj
}
## If already an xml2::xml_document, just check it is HTML
htmlDocument.xml_document <- function(x,
css="",
assets=NULL,
...) {
doc <- buildDoc(as.character(x), css)
obj <- list(doc=doc, assets=assets)
class(obj) <- c("htmlDocument")
obj
}
## A standalone element
## (which we wrap within an HTML document,
## BUT keep track of the element of interest)
htmlElement <- function(x, ...) {
UseMethod("htmlElement")
}
## Assume character value is HTML element
htmlElement.character <- function(x,
css="",
assets=NULL,
...) {
## Will auto-complete HTML doc (with element as only content within body)
doc <- buildDoc(paste(x, collapse=""), css)
obj <- list(doc=doc, assets=assets)
class(obj) <- c("htmlElement", "htmlDocument")
obj
}
## Valid XML, just check ok HTML
htmlElement.xml_node <- function(x,
css="",
assets=NULL,
...) {
doc <- buildDoc(as.character(x), css)
obj <- list(doc=doc, assets=assets)
class(obj) <- c("htmlElement", "htmlDocument")
obj
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.