## Not run:
# # get my own user profile
# profile<-synGetUserProfile()
# propertyValue(profile, "position")<-"Imperial Vice Duke of all Engineering"
# profile<-synStore(profile)
# # get someone else's profile
# principalId<-"123456"
# profile<-synGetUserProfile(principalId)
# ## End(Not run)
Run the code above in your browser using DataLab