Clear the accessPolicy from the specified object.
Source:R/SystemMetadata.R
, R/DataObject.R
, R/DataPackage.R
clearAccessPolicy.Rd
Clears the accessPolicy from the specified object by overwriting all existing access rules set on the object with an empty set.
Usage
clearAccessPolicy(x, ...)
# S4 method for class 'SystemMetadata'
clearAccessPolicy(x, ...)
# S4 method for class 'DataObject'
clearAccessPolicy(x, ...)
# S4 method for class 'DataPackage'
clearAccessPolicy(x, identifiers = list(), ...)
Value
The SystemMetadata object with the cleared access policy.
The DataObject with the cleared access policy.
The SystemMetadata object with the cleared access policy.
Examples
# Clear access policy for a SystemMetadata object.
sysmeta <- new("SystemMetadata")
sysmeta <- addAccessRule(sysmeta, "uid=smith,ou=Account,dc=example,dc=com", "write")
sysmeta <- clearAccessPolicy(sysmeta)
# Clear access policy for a DataObject
do <- new("DataObject", format="text/csv", filename=system.file("extdata/sample-data.csv",
package="datapack"))
do <- addAccessRule(do, "uid=smith,ou=Account,dc=example,dc=com", "write")
do <- clearAccessPolicy(do)
# Clear access policy for a DataPackage
dp <- new("DataPackage")
data <- charToRaw("1,2,3\n4,5,6\n")
obj <- new("DataObject", dataobj=data, format="text/csv")
dp <- addMember(dp, obj)
data2 <- charToRaw("7,8,9\n4,10,11\n")
obj2 <- new("DataObject", dataobj=data2, format="text/csv")
dp <- addMember(dp, obj2)
# Add the access rule to all package members
dp <- addAccessRule(dp, "uid=smith,ou=Account,dc=example,dc=com",
permission="write")
# Now clear the access policy for just the second object
dp <- clearAccessPolicy(dp, getIdentifier(obj2))