## Not run:
# # make a client
# cli <- etcd()
#
# # check authentication status
# cli$auth_status()
#
# # enable authentication
# cli$auth_enable("root", "pickbetterpwd")
#
# # woops, if you got error about root user, craeate one first
# cli$user_add(user = "root", password = "pickbetterpwd")
#
# # disable authentication
# cli$auth_disable("root", "pickbetterpwd")
#
# # check again, now disabled
# cli$auth_status()
#
# # Users
# # Add user
# cli$user_add("jane", "janepwd", "root", "pickbetterpwd")
# # List users
# cli$user_list()
# # Get a single user
# cli$user_get("root")
# cli$user_get("jane")
# # Delete user
# cli$user_delete("jane", "root", "pickbetterpwd")
# ## End(Not run)
Run the code above in your browser using DataLab