# NOT RUN {
make_tbl <- blueprint(
x = r_norm(),
y = r_unif()
)
set_n(10)
i <- r_lgl()
bp_where(i, make_tbl)
df <- tibble::tibble(
id = 1:10,
cnd = r_lgl()
)
dplyr::mutate(df, bp_where(cnd, make_tbl))
# }
Run the code above in your browser using DataLab