Pretty much as it says: reject a probational upload of a version of a project's asset. This removes all files associated with that version.
rejectProbation(project, asset, version, staging, url)
NULL
is invisibly returned upon successful rejection.
approveProbation
, to approve the probational upload.
uploadDirectory
, to specify probational uploads.
info <- startGobbler()
removeProject("test", info$staging, url=info$url) # start with a clean slate.
createProject("test", info$staging, url=info$url)
# Mocking up an upload.
src <- allocateUploadDirectory(info$staging)
write(file=file.path(src, "foo"), "BAR")
uploadDirectory("test", "probation", "v1", src,
staging=info$staging, url=info$url, probation=TRUE)
listVersions("test", "probation", registry=info$registry)
#> [1] "v1"
# After rejection, the version disppears.
rejectProbation("test", "probation", "v1", staging=info$staging, url=info$url)
listVersions("test", "probation", registry=info$registry)
#> character(0)