Nothing
#' Print disk.frame
#' @description
#' a new print method for disk.frame
#' @export
#' @param x disk.frame
#' @param ... not used
#' @importFrom glue glue
# TODO add chunk
print.disk.frame <- function(x, ...) {
if (is.null(attr(x, "recordings"))) {
a = paste(sep = "\n"
,glue::glue("path: \"{attr(x,'path', exact=TRUE)}\"")
,glue::glue("nchunks: {disk.frame::nchunks(x)}")
,glue::glue("nrow (at source): {disk.frame::nrow(x)}")
,glue::glue("ncol (at source): {disk.frame::ncol(x)}")
)
} else {
a = paste(sep = "\n"
,glue::glue("path: \"{attr(x,'path', exact=TRUE)}\"")
,glue::glue("nchunks: {disk.frame::nchunks(x)}")
,glue::glue("nrow (at source): {disk.frame::nrow(x)}")
,glue::glue("ncol (at source): {disk.frame::ncol(x)}")
,glue::glue("nrow (post operations): ???")
,glue::glue("ncol (post operations): ???\n")
)
}
message(a)
}
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.