if (FALSE) {
# list all snapshots
(res <- snapshots())
# list droplet snapshots
snapshots(type = "droplet")
# list volume snapshots
snapshots(type = "volume")
# paging
snapshots(per_page = 5)
snapshots(per_page = 5, page = 2)
# get a single snapshot
snapshot(res[[1]]$id)
# delete a snapshot
## a whole snapshot class object
snapshot_delete(res[[2]])
## by id
snapshot_delete(res[[2]]$id)
## by name
snapshot_delete(res[[2]]$name)
# delete many snapshots
lapply(snapshots(), snapshot_delete)
}
Run the code above in your browser using DataLab