Nothing
## for use when running as an ordinary user
hhpdf <- function(file, ...) {invisible(NULL)}
hhdev.off <- function(...) {invisible(NULL)}
hhcapture <- function(file, text, echo=TRUE, print.eval=TRUE) {
source(textConnection(text),
echo=TRUE, print.eval=TRUE, keep.source=TRUE,
max.deparse.length=500)
}
hhcode <- function(file, text) {
cat(text)
}
hhpng <- function(file, ...) {invisible(NULL)}
hhlatex <- function(file="", ...) {
file.tex <- Hmisc::latex(file="", ...)
invisible(NULL)
}
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.