Access policy is lost sometimes

[jeanetteclark]

Sometimes the access policy is lost on an update. Need to search through and figure out where this happens. I think it may be publish_update

[laijasmine]

Leaving this here just incase it helps:

library(arcticdatautils)
library(dataone)

cn <- CNode("PROD")
adc <- getMNode(cn, "urn:node:ARCTIC")

original <- "resource_map_urn:uuid:c990d890-3c43-4387-b19c-f73299dbe8a0"
all_ver <- get_all_versions(adc, original)

pi <- "http://orcid.org/0000-0002-0052-8580"
jasmine <- "http://orcid.org/0000-0001-8888-547X"

access <- purrr::map(all_ver, ~getSystemMetadata(adc, .x)@accessPolicy)
rights <- purrr::map(all_ver, ~getSystemMetadata(adc, .x)@rightsHolder)
submit <- purrr::map(all_ver, ~getSystemMetadata(adc, .x)@submitter)

review_rights <- cbind(rights, submit)

#for some reason PI can still update and view the files up to the resource map "resource_map_urn:uuid:d47188dd-7baa-4a9d-86d6-88e768f89d83"