## This example is run, but likely not how you want to do things
dm <- dmFactory$new(text='foo', recipientSN='blah')
dm$getText()
## assume 'json' is the return from a Twitter call
dm <- dmFactory$new(json)
dm$getSenderID()
Run the code above in your browser using DataLab