# NOT RUN {
cl <- create_cluster(2)
cl %>%
cluster_assign_value("x", 10) %>%
cluster_get("x")
cl %>%
cluster_assign_expr("y", quote(runif(2))) %>%
cluster_get("y")
cl %>%
cluster_assign_each("z", list(3, 4)) %>%
cluster_get("z")
a <- 1:10
cl %>%
cluster_copy(a) %>%
cluster_get("a")
cl %>% cluster_ls()
cl %>% cluster_rm(c("a", "x", "y", "z"))
cl %>% cluster_ls()
# }
Run the code above in your browser using DataLab