# 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)
# Remove the permission for anyone
gs_perm_delete(foo, perm_id = "anyoneWithLink")
gs_delete(foo)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab