if (FALSE) {
d <- droplet_create() %>%
ubuntu_add_swap() %>%
droplet_ssh("apt-get update") %>%
ubuntu_install_r()
results <- d %>% droplet_execute({
x <- letters
numbers <- runif(1000)
})
results$x
results$numbers
droplet_delete(d)
}
Run the code above in your browser using DataLab