do.if <- function(expr, cond) if(cond) expr