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