R/mutate_cond.R

In tsouchlarakis/rdoni:

mutate_cond <- function(.data, condition, ..., envir = parent.frame()) {
  # Conditionally apply dplyr::mutate()
  condition <- eval(substitute(condition), .data, envir)
  .data[condition, ] <- .data[condition, ] %>% mutate(...)
  .data
}