R/wrap_expression.R

Defines functions wrap_expression

wrap_expression <- function(exprs){
  nms <- names(exprs)
  exprs <- lapply(exprs, function(expr){
    bquote(ifelse(.(expr), 1L, 0L))
  })
  names(exprs) <- nms
  exprs
}
data-cleaning/validatedb documentation built on June 11, 2022, 4:33 p.m.