# 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)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab