test <- function(obj) {
  a <- 100
  if(missing(obj)) {
    obj <- Y~runif(a,a+10)
  }
  data %>% mutate_random(obj)
}

test()

obj <- Y~runif(a,a+10)
test(b)