## Not run:
# # make a client
# cli <- etcd()
#
# # Add role
# #perms <- list(fun = list(kv = list(read = "/message/*")))
# #cli$role_add(role = "fun", perm_read = perms, auth_user="root",
# # auth_pwd="pickbetterpwd")
#
# # List roles
# cli$role_list()
#
# # Get a single role
# cli$role_get("root")
# cli$role_get("fun")
#
# # Delete role
# cli$role_delete("fun", "root", "pickbetterpwd")
#
# # Update a role
# ### FIXME - still working on this
# ## First, create
# # cli$role_add("stuff", perm_read = "/message/*", perm_write = "/message/*",
# # auth_user = "root", auth_pwd = "pickbetterpwd")
# ## udpate
# # "xxx"
# ## get
# # cli$role_get("stuff")
# ## End(Not run)
Run the code above in your browser using DataLab