do_if.R

do_if <- function(data, predicate, expr) {
  if (predicate) {
    eval.parent(insert_data(
      substitute(expr),
      substitute(data)
    ))
  } else {
    data
  }
}

insert_data <- function(expr, data) {
  as.call(c(
    expr[[1L]],
    data,
    as.list(expr[-1L])
  ))
}