## Not run:
# dms <- dmGet()
# dms
# ## delete the first one
# dms[[1]]$destroy()
# dmDestroy(dms[[2]])
# ## send a DM
# dmSend('Testing out twitteR!', 'twitter')
# ## End(Not run)
Run the code above in your browser using DataLab