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