R/Frame_dt.R

In R6Frame: R6 Wrapper for Data Frames

#' data.table: melt
#'
#' Same as the \code{data.table} function \code{melt}. This is a new generic,
#' because the \code{data.table} version calls \code{reshape2} unless the input
#' is a \code{data.table}.
#'
#' @param data A \code{R6Frame} or \code{data.frame}.
#' @param ... Additional parameters passed to \code{melt}.
#' @inheritParams data.table::melt
#' @author Kristian D. Olsen
#' @export
#' @seealso \code{\link[data.table]{melt}} in \code{data.table} for more information and examples.

melt <- function(data, ...) UseMethod("melt")

#' @export
melt.default <- function(data, ...) {
  data.table::melt(data, ...)
}

#' @export
melt.R6Frame <- function(data, ...) {
  data$do(data.table::melt, capture_dots(...), env = parent.frame())
}

#' data.table: dcast
#'
#' Same as the \code{data.table} function \code{dcast}. This is a new generic,
#' because the \code{data.table} version calls \code{reshape2} unless the input
#' is a \code{data.table}.
#'
#' @param data A \code{R6Frame} or \code{data.frame}.
#' @param ... Additional parameters passed to \code{dcast}.
#' @inheritParams data.table::dcast
#' @author Kristian D. Olsen
#' @export
#' @seealso \code{\link[data.table]{dcast}} in \code{data.table} for more information and examples.

dcast <- function(data, ...) UseMethod("dcast")

#' @export
dcast.default <- function(data, ...) {
  data.table::dcast(data, ...)
}

#' @export
dcast.R6Frame <- function(data, ...) {
  data$do(data.table::dcast, capture_dots(...), env = parent.frame())
}

#' @export
.datatable.aware <- TRUE