Nothing
#' @rdname man-gho
#' @export
print.gho <- function(x, n = options()$rgho.n, ...) {
if (n == Inf) {
n <- nrow(x)
}
cat(sprintf("A 'GHO' object of %i elements.\n\n", nrow(x)))
print.data.frame(head(x,n), ...)
if (n < nrow(x)) {
cat(sprintf("...\n\n(Printing %i first elements.)\n", n))
}
}
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.