if (FALSE) {
here_i_am <- "foo"
dot <- quo(here_i_am)
dot2 <- DeclareDesign:::clone_dot_edit_env(dot, here_i_am = "some_message", xyxyx = "bar")
rlang::eval_tidy(dot)
rlang::eval_tidy(dot2)
}
if (FALSE) {
N <- 50
pop50 <- declare_model(N=N, noise=rnorm(N))
nrow(pop50())
pop100 <- DeclareDesign:::clone_step_edit(pop50, N=100)
nrow(pop100())
nrow(pop50())
}
Run the code above in your browser using DataLab