# NOT RUN {
d <- droplet_create()
d %>% droplet_snapshots_list()
d %>% droplet_backups_list()
d %>%
droplet_power_off() %>%
droplet_snapshot() %>%
droplet_power_on() %>%
droplet_snapshots_list()
# To delete safely
d %>%
droplet_power_off() %>%
droplet_snapshot() %>%
droplet_delete() %>%
action_wait()
# }
Run the code above in your browser using DataLab