R/transmute.R

In poorman: A Poor Man's Dependency Free Recreation of 'dplyr'

Defines functions transmute.grouped_df transmute.data.frame transmute

Documented in transmute

#' @rdname mutate
#' @export
transmute <- function(.data, ...) {
  UseMethod("transmute")
}

#' @export
transmute.data.frame <- function(.data, ...) {
  mutate(.data, ..., .keep = "none")
}

#' @export
transmute.grouped_df <- function(.data, ...) {
  rows <- rownames(.data)
  res <- apply_grouped_function("transmute", .data, drop = TRUE, ...)
  res[rows, ]
}

Try the poorman package in your browser