Mark sysmeta as updated for addAccessRule, setPublicAccess, clearAcce…

…ssPolicy
ropensci · Oct 18, 2017 · 8b60292 · 8b60292
1 parent c4dd095
commit 8b60292
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/DataPackage.R b/R/DataPackage.R
@@ -1125,6 +1125,7 @@ setMethod("setPublicAccess", signature("DataPackage"), function(x, identifiers=l
             if(! iKey %in% identifiers) next
             obj <- getMember(x, identifier=iKey)
             obj <-  setPublicAccess(obj)
+            obj@updated[['sysmeta']] <- TRUE
             x <- removeMember(x, obj, removeRelationships=FALSE)
             x <- addMember(x, obj)
         }
@@ -1174,6 +1175,7 @@ setMethod("addAccessRule", signature("DataPackage"), function(x, y, ...) {
             if(! iKey %in% identifiers) next
             obj <- getMember(x, identifier=iKey)
             obj <- addAccessRule(obj, y, ...)
+            obj@updated[['sysmeta']] <- TRUE
             x <- removeMember(x, iKey, removeRelationships=FALSE)
             x <- addMember(x, obj)
         }
@@ -1209,6 +1211,7 @@ setMethod("clearAccessPolicy", signature("DataPackage"), function(x, identifiers
             if(! iKey %in% identifiers) next
             obj <- getMember(x, identifier=iKey)
             obj <- clearAccessPolicy(obj, ...)
+            obj@updated[['sysmeta']] <- TRUE
             x <- removeMember(x, iKey, removeRelationships=FALSE)
             x <- addMember(x, obj)
         }