Nothing
#' @export
print.rakelist <- function(x, ...) {
num_docs <- length(x)
up_ind <- ifelse(num_docs == 1, 1, 2)
cat(
"\n# A rakelist containing", as.character(num_docs), "data frames:\n"
)
utils::str(x[1:up_ind], vec.len = 1, max.level = 2, give.attr = FALSE,
digits.d = 2, strict.width = "cut", give.head = FALSE,
no.list = TRUE)
if (num_docs > 2) {
frames <- ifelse(num_docs == 3, "frame.", "frames.")
cat("#...With", as.character(num_docs - 2), "more data", frames)
}
}
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.