## 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