Nothing
#' Keep only the variables from the input listed in selections
#' @param diskf a disk.frame
#' @param selections The list of variables to keep from the input source
#' @param ... not yet used
#' @export
#' @examples
#' cars.df = as.disk.frame(cars)
#'
#' # when loading cars's chunks into RAM, load only the column speed
#' collect(srckeep(cars.df, "speed"))
#'
#' # clean up cars.df
#' delete(cars.df)
srckeep <- function(diskf, selections, ...) {
stopifnot("disk.frame" %in% class(diskf))
attr(diskf,"keep") = selections
diskf
}
#' @param chunks The chunks to load
#' @rdname srckeep
#' @export
# srckeepchunks <- function(diskf, chunks, ...) {
# stopifnot("disk.frame" %in% class(diskf))
# # TODO relax this
# stopifnot(is.integer(chunks))
#
# attr(df,"keep_chunks") = chunks
# diskf
# }
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.