Override environment via shim
1 2 3 4 5 | clone_dot_edit_env(dot, ..., to_replace = list(...))
clone_step_edit(step, ..., to_replace = list(...))
clone_design_edit(design, ..., to_replace = list(...))
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | ## 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)
## End(Not run)
## 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())
## End(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))
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.