R/f_operator.R

In Hung-Ching-Chang/biost2094_hw2: sort and log function for BIOST2094 HW2

f_operator = function(f){
  new_f = function(x){
    if(x>0){
      f(x)
    }else{
      cnd = catch_cnd(rlang::abort(
        message = "invalid input",
        .subclass = "invalid_input",
        invalid_input = x))
    }
  }
  return(new_f)
}