R/mutate_cond.R

In yanxianUCSB/yxhelper: Yx's Personal R packages

#' mutate_cond for dplyr
#' credit: G. Grothendieck
#' @param .data 
#' @param condition 
#' @param ... 
#' @param envir 
#'
#' @return
#' @export
#'
#' @examples
mutate_cond <- function(.data, condition, ..., envir = parent.frame()) {
    condition <- eval(substitute(condition), .data, envir)
    .data[condition, ] <- .data[condition, ] %>% mutate(...)
    .data
}