# NOT RUN {
here_i_am <- "foo"
dot <- quo(here_i_am)
dot2 <- clone_dot_edit_env(dot, here_i_am = "some_message", xyxyx = "bar")
eval_tidy(dot)
eval_tidy(dot2)
# }
# NOT RUN {
N <- 50
pop50 <- declare_population(N=N, noise=rnorm(N))
nrow(pop50())
pop100 <- DeclareDesign:::clone_step_edit(pop50, N=100)
nrow(pop100())
nrow(pop50())
# }
# NOT RUN {
N <- 50
# }
# NOT RUN {
my_design <- declare_population(N=N, noise=rnorm(N)) + NULL
my_design2 <- DeclareDesign:::clone_design_edit(my_design, N=100)
nrow(draw_data(my_design))
nrow(draw_data(my_design2))
# }
Run the code above in your browser using DataCamp Workspace