## Not run:
# foo <- gs_new("foo")
# gs_perm_ls(foo)
# # Add anyone as a reader:
# gs_perm_add(foo, type = "anyone", role = "reader")
# gs_perm_ls(foo)
# # Change anyone to a writer:
# gs_perm_edit(foo, perm_id = "anyoneWithLink", role = "writer")
# gs_perm_ls(foo)
# gs_delete(foo)
# ## End(Not run)
Run the code above in your browser using DataLab