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