Added force= option for deleting assets/versions or rejecting probation.

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: gobbler
-Version: 0.3.11
-Date: 2025-01-28
+Version: 0.3.12
+Date: 2025-02-03
 Title: Interface to the gobbler service
 Description:
     Friendly interface to the gobbler service.

R/rejectProbation.R

@@ -6,6 +6,8 @@
 #' @param project String containing the project name.
 #' @param asset String containing the asset name.
 #' @param version String containing the version name.
+#' @param force Logical scalar indicating that the asset should be forcibly removed if it contains invalid files.
+#' If this needs to be set to \code{TRUE}, users may need to call \code{\link{refreshUsage}} afterwards to correct project-level usage statistics.
 #' @inheritParams createProject 
 #'
 #' @return \code{NULL} is invisibly returned upon successful rejection.
@@ -33,7 +35,7 @@
 #' listVersions("test", "probation", registry=info$registry)
 #' 
 #' @export
-rejectProbation <- function(project, asset, version, staging, url) {
-    dump_request(staging, url, "reject_probation", list(project=project, asset=asset, version=version))
+rejectProbation <- function(project, asset, version, staging, url, force=FALSE) {
+    dump_request(staging, url, "reject_probation", list(project=project, asset=asset, version=version, force=force))
     invisible(NULL)
 }

R/removeAsset.R

@@ -2,8 +2,10 @@
 #'
 #' Remove an asset of the project from the registry.
 #'
-#' @param project String containing the project to remove.
-#' @param asset String containing the asset to remove.
+#' @param project String specifying the project containing the asset to remove.
+#' @param asset String specifying the asset to remove.
+#' @param force Logical scalar indicating that the asset should be forcibly removed if it contains invalid files.
+#' If this needs to be set to \code{TRUE}, users may need to call \code{\link{refreshUsage}} afterwards to correct project-level usage statistics.
 #' @inheritParams createProject 
 #'
 #' @return \code{NULL} is invisibly returned if the asset was successfully removed. 
@@ -29,7 +31,7 @@
 #' listAssets("test", registry=info$registry)
 #'
 #' @export
-removeAsset <- function(project, asset, staging, url) {
-    dump_request(staging, url, "delete_asset", list(project=project, asset=asset))
+removeAsset <- function(project, asset, staging, url, force=FALSE) {
+    dump_request(staging, url, "delete_asset", list(project=project, asset=asset, force=force))
     invisible(NULL)
 }

R/removeVersion.R

@@ -2,9 +2,12 @@
 #'
 #' Remove a version of an asset of a project from the registry.
 #'
-#' @param project String containing the project to remove.
-#' @param asset String containing the asset to remove.
+#' @param project String specifying the project containing the version of the asset to remove.
+#' @param asset String specifying the asset containing the version to remove.
 #' @param version String containing the version of the asset to remove.
+#' @param force Logical scalar indicating that the asset should be forcibly removed if it contains invalid files.
+#' If this needs to be set to \code{TRUE}, users may need to call \code{\link{refreshUsage}} to correct project-level usage statistics.
+#' Similarly, \code{\link{refreshLatest}} may also need to be called.
 #' @inheritParams createProject
 #'
 #' @return \code{NULL} is invisibly returned if the version was successfully removed. 
@@ -30,7 +33,7 @@
 #' listVersions("test", "simple", registry=info$registry)
 #'
 #' @export
-removeVersion <- function(project, asset, version, staging, url) {
-    dump_request(staging, url, "delete_version", list(project=project, asset=asset, version=version))
+removeVersion <- function(project, asset, version, staging, url, force=FALSE) {
+    dump_request(staging, url, "delete_version", list(project=project, asset=asset, version=version, force=force))
     invisible(NULL)
 }