set.seed(1)
mer = mut("erase")
p = ps(x = p_lgl(), y = p_fct(c("a", "b", "c")), z = p_dbl(0, 1))
data = data.frame(x = rep(TRUE, 5), y = rep("a", 5),
z = seq(0, 1, length.out = 5),
stringsAsFactors = FALSE) # necessary for R <= 3.6
mer$prime(p)
mer$operate(data)
Run the code above in your browser using DataLab