Nothing
R/transform.R
In tm.plugin.webmining: Retrieve Structured, Textual Data from Various Web Sources
Defines functions
encloseHTML
encloseHTML.PlainTextDocument
removeNonASCII
removeNonASCII.PlainTextDocument
Documented in
encloseHTML
encloseHTML.PlainTextDocument
removeNonASCII
removeNonASCII.PlainTextDocument
#' @title Enclose Text Content in HTML tags
#' @description Simple helper function which encloses text content of character
#' (or \code{\link[tm]{TextDocument}}) in HTML-tags. That way, HTML
#' content can be easier parsed by \code{\link[XML]{htmlTreeParse}}
#' @param x object of PlainTextDocument class
#' @export
#' @aliases encloseHTML.PlainTextDocument encloseHTML.character
encloseHTML <- function(x) UseMethod("encloseHTML", x)
#' @importFrom NLP content<-
#' @noRd
#' @export
# FIXME: Could be done easier??
encloseHTML.PlainTextDocument <- function(x){
content(x) <- sprintf("<html>%s</html>", x)
x
}
#' @title Remove non-ASCII characters from Text.
#' @description This is a helper function to generate package data
#' without non-ASCII character and omit the warning at R CMD check.
#' @param x object of PlainTextDocument class
#' @param fields specifies fields to be converted, defaults to fields = c("Content", "Heading", "Description")
#' @param from specifies encoding from which conversion should be done, defaults to "UTF-8"
#' @param to speciefies target encoding, defaults to "ASCII//TRANSLIT"
#' @export
#' @aliases removeNonASCII.PlainTextDocument
removeNonASCII <- function(x, fields = c("Content", "Heading", "Description"), from = "UTF-8", to = "ASCII//TRANSLIT")
UseMethod("removeNonASCII", x)
#' @noRd
#' @export
removeNonASCII.PlainTextDocument <- function(x, fields = c("Content", "Heading", "Description"), from = "UTF-8", to = "ASCII//TRANSLIT"){
if("Content" %in% fields){
content(x) <- iconv(x, from, to)
}
for(fn in setdiff(fields, "Content")){
meta(x, fn) <- iconv(meta(x, fn), from, to)
}
x
}
Try the tm.plugin.webmining package in your browser
Any scripts or data that you put into this service are public.
tm.plugin.webmining documentation built on May 2, 2019, 1:10 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 encloseHTML encloseHTML.PlainTextDocument removeNonASCII removeNonASCII.PlainTextDocument
Documented in encloseHTML encloseHTML.PlainTextDocument removeNonASCII removeNonASCII.PlainTextDocument
#' @title Enclose Text Content in HTML tags
#' @description Simple helper function which encloses text content of character
#' (or \code{\link[tm]{TextDocument}}) in HTML-tags. That way, HTML
#' content can be easier parsed by \code{\link[XML]{htmlTreeParse}}
#' @param x object of PlainTextDocument class
#' @export
#' @aliases encloseHTML.PlainTextDocument encloseHTML.character
encloseHTML <- function(x) UseMethod("encloseHTML", x)
#' @importFrom NLP content<-
#' @noRd
#' @export
# FIXME: Could be done easier??
encloseHTML.PlainTextDocument <- function(x){
content(x) <- sprintf("<html>%s</html>", x)
x
}
#' @title Remove non-ASCII characters from Text.
#' @description This is a helper function to generate package data
#' without non-ASCII character and omit the warning at R CMD check.
#' @param x object of PlainTextDocument class
#' @param fields specifies fields to be converted, defaults to fields = c("Content", "Heading", "Description")
#' @param from specifies encoding from which conversion should be done, defaults to "UTF-8"
#' @param to speciefies target encoding, defaults to "ASCII//TRANSLIT"
#' @export
#' @aliases removeNonASCII.PlainTextDocument
removeNonASCII <- function(x, fields = c("Content", "Heading", "Description"), from = "UTF-8", to = "ASCII//TRANSLIT")
UseMethod("removeNonASCII", x)
#' @noRd
#' @export
removeNonASCII.PlainTextDocument <- function(x, fields = c("Content", "Heading", "Description"), from = "UTF-8", to = "ASCII//TRANSLIT"){
if("Content" %in% fields){
content(x) <- iconv(x, from, to)
}
for(fn in setdiff(fields, "Content")){
meta(x, fn) <- iconv(meta(x, fn), from, to)
}
x
}
Try the tm.plugin.webmining package in your browser
Any scripts or data that you put into this service are public.
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.