Nothing
###########################################################################/**
# @RdocClass HtmlRspLanguage
#
# @title "The HtmlRspLanguage class"
#
# \description{
# @classhierarchy
# }
#
# @synopsis
#
# \arguments{
# \item{...}{Arguments passed to the constructor of the @see "RspLanguage".}
# }
#
# \section{Fields and Methods}{
# @allmethods
# }
#
# @author
#
# @keyword internal
#*/###########################################################################
setConstructorS3("HtmlRspLanguage", function(...) {
extend(RspLanguage(language="html", ...), "HtmlRspLanguage")
})
setMethodS3("getComment", "HtmlRspLanguage", function(object, ...) {
s <- paste(..., collapse="\n", sep="")
s <- paste("<!-- ", s, " -->", sep="")
s
})
setMethodS3("escape", "HtmlRspLanguage", function(object, ...) {
s <- paste(..., collapse="\n", sep="")
s <- gsub("<", "<", s)
s <- gsub(">", ">", s)
s
})
setMethodS3("getVerbatim", "HtmlRspLanguage", function(object, ..., newline=NULL) {
s <- NextMethod("getVerbatim", newline="")
if (is.null(newline))
newline <- getNewline(object)
if (is.character(newline)) {
s <- gsub("\n\r|\r\n|\r", "\n", s)
s <- gsub("\n", newline, s)
}
s
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.