if (FALSE) {
dataStoreId <- "5c1303269300d900016b41a7"
dataStore <- GetDataStore(dataStoreId)
# Grant access to a particular user.
Share(dataStore, "foo@foo.com")
# Grant access in a Read Only role.
Share(dataStore, "foo@foo.com", role = SharingRole$ReadOnly)
# Revoke access
Share(dataStore, "foo@foo.com", role = NULL)
}
Run the code above in your browser using DataLab