## 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()
## Not run:
# ## Assume 'json' is the return from a Twitter call
# us <- userFactory$new(json)
# us$getScreenName()
# ## End(Not run)
Run the code above in your browser using DataLab