## This example is run, but likely not how you want to do things
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()
Run the code above in your browser using DataLab