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