## Not run: ------------------------------------
# b <- bucketlist()
# get_acceleration(b[[1]])
# put_acceleration(b[[1]], "Enabled")
# get_acceleration(b[[1]])
# put_acceleration(b[[1]], "Suspended")
## ---------------------------------------------
Run the code above in your browser using DataLab