# NOT RUN {
make_tbl <- blueprint(
x = r_norm(),
y = r_norm()
)
make_tbl(n = 2)
make_tbl(n = 5)
# Blueprints can use additional parameters:
make_tbl2 <- blueprint(
x = r_norm(mean = x_mu),
y = r_unif(min = y_min, max = y_max)
)
# Which are simply passed to the generated function
make_tbl2(x_mu = 10, y_min = -10, y_max = -5)
is_blueprint(make_tbl)
# }
Run the code above in your browser using DataLab