## Not run:
# dm <- dmFactory$new(text='foo', recipientSN='blah')
# dm$getText()
#
# ## assume 'json' is the return from a Twitter call
# dm <- dmFactory$new(json)
# dm$getSenderID()
# ## End(Not run)
Run the code above in your browser using DataLab