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