R/html-to-text.R
In rtelmore/RDSTK: An R wrapper for the Data Science Toolkit API
#' @title Identifies the text of an html string.
#'
#' @description
#' This function is used for processing an html string in order to find the
#' main text of this string. The output is a list that contains the extracted
#' text.
#'
#' @param html A string containing valid html code.
#' @param session The CURLHandle object giving the structure for the options
#' and that will process the command. For curlMultiPerform, this is an object
#' of class code MultiCURLHandle-class.
#'
#' @return
#' A list with the main text in the html.
#'
#' @seealso
#' \code{\link{curlPerform}},
#' \code{\link{getCurlHandle}},
#' \code{\link{dynCurlReader}}
#'
#' @references
#' http://www.datasciencetoolkit.org/developerdocs#html2text
#'
#' @examples
#' \dontrun{
#' html <- '<html><head><title>MyTitle</title></head><body><script
#' type="text/javascript">something();</script><div>Some actual
#' text</div></body></html>'
#' html2text(html)
#' }
#'
#' @export
html2text <- function(html, session = RCurl::getCurlHandle()) {
api <- paste(getOption("RDSTK_api_base"), "/html2text/", sep="")
r = RCurl::dynCurlReader()
RCurl::curlPerform(postfields=html, url=api, post=1L, writefunction=r$update,
curl=session)
return(rjson::fromJSON(r$value()))
}
rtelmore/RDSTK documentation built on May 12, 2019, 4:26 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.
#' @title Identifies the text of an html string.
#'
#' @description
#' This function is used for processing an html string in order to find the
#' main text of this string. The output is a list that contains the extracted
#' text.
#'
#' @param html A string containing valid html code.
#' @param session The CURLHandle object giving the structure for the options
#' and that will process the command. For curlMultiPerform, this is an object
#' of class code MultiCURLHandle-class.
#'
#' @return
#' A list with the main text in the html.
#'
#' @seealso
#' \code{\link{curlPerform}},
#' \code{\link{getCurlHandle}},
#' \code{\link{dynCurlReader}}
#'
#' @references
#' http://www.datasciencetoolkit.org/developerdocs#html2text
#'
#' @examples
#' \dontrun{
#' html <- '<html><head><title>MyTitle</title></head><body><script
#' type="text/javascript">something();</script><div>Some actual
#' text</div></body></html>'
#' html2text(html)
#' }
#'
#' @export
html2text <- function(html, session = RCurl::getCurlHandle()) {
api <- paste(getOption("RDSTK_api_base"), "/html2text/", sep="")
r = RCurl::dynCurlReader()
RCurl::curlPerform(postfields=html, url=api, post=1L, writefunction=r$update,
curl=session)
return(rjson::fromJSON(r$value()))
}
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.