## This example is run, but likely not how you want to do things
us <- userFactory$new(screenName="test", name="Joe Smith")
us$getScreenName()
us$getName()
## Assume 'json' is the return from a Twitter call
us <- userFactory$new(json)
us$getScreenName()
Run the code above in your browser using DataLab