## Not run:
# st <- statusFactory$new(screenName="test", text="test message")
# st$getScreenName()
# st$getText()
#
# ## Assume 'json' is the return from a Twitter call
# st <- statusFactory$new(json)
# st$getScreenName()
# ## End(Not run)
Run the code above in your browser using DataLab