Nothing
oprint <- function(x, pre = TRUE, ...) {
args <- opbase.parse_args()
if (pre == TRUE && ! is.null(args$token)){
print_html_safe(args)
cat("<pre>\n")
cat("<!-- html_safe_end -->\n")
print(x)
print_html_safe(args)
cat("</pre>\n")
cat("<!-- html_safe_end -->\n")
}else{
print(x)
}
}
oprint.table <- function(x, show_all = FALSE, sortable = TRUE, ...) {
x <- as.data.frame(x)
args <- opbase.parse_args()
if (nrow(x) > 1000 && !show_all)
{
print(paste('Showing first 1000 rows out of ',nrow(x),'. Set show_all=TRUE to show all rows.',sep=''))
x = x[1:1000,]
}
if (is.null(args$token))
{
print(x, ...)
}
else
{
print_html_safe(args)
if (sortable)
print(xtable(x, ...), type = 'html', html.table.attributes="class='wikitable sortable'", ...)
else
print(xtable(x, ...), type = 'html', html.table.attributes="class='wikitable'", ...)
cat("\n<!-- html_safe_end -->\n")
}
}
setGeneric("oprint")
# OVariable print
setMethod(
f = "oprint",
signature = signature(x = "ovariable"),
definition = function(x, show_all = FALSE, sortable = TRUE, ...) {
if (ncol(x@output) == 0) x <- EvalOutput(x, verbose = FALSE)
oprint.table(x@output, show_all = show_all, sortable = sortable, ...)
}
)
# Data.frame print
setMethod(
f = "oprint",
signature = signature(x = "data.frame"),
definition = function(x, show_all = FALSE, sortable = TRUE, ...) {
oprint.table(x, show_all = show_all, sortable = sortable, ...)
}
)
# Matrix print
setMethod(
f = "oprint",
signature = signature(x = "matrix"),
definition = function(x, show_all = FALSE, sortable = TRUE, ...) {
oprint.table(x, show_all = show_all, sortable = sortable, ...)
}
)
print_html_safe <- function(args){
cat(paste('<!-- ',digest(paste(args$token,readLines(paste(getwd(),'/../offline/html_safe_key',sep=''),1),sep=''), algo="md5", serialize=FALSE),' -->\n',sep=''))
}
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.