# NOT RUN {
# list a user
user('sckott')
user('cboettig')
# list users
users_list('staff')
users_list('new')
# create a user
(x <- user_create("jane doe", "janie@doe.com", "jane_doe",
"fTh6bmoPaaWrlI5fLDM6wy"))
# activate a user
user_activate(x$user_id)
# upate email address
user_update_email(username = 'jane_doe', email = 'jane2@doe.com')
# upate user name
user_update_username('jane_doe', 'jane_doe5')
# delete a user
user_delete(x$user_id)
# }
Run the code above in your browser using DataLab