Codefactor

R/task-purge.R

@@ -67,7 +67,7 @@
 ##'   use are `created`, `success`, `failure` and `cancelled` (note
 ##'   you cannot select tasks with status of `submitted` or `running`;
 ##'   use [task_cancel] for these first).
-##'   
+##'
 ##' @param dry_run If TRUE, report what would have been done, but
 ##'   no changes will be made.
 ##'
@@ -126,15 +126,15 @@ hipercow_purge <- function(task_ids = NULL,
   }
 
   cli::cli_alert_info("Purging {length(ids)} task{?s}")
-  maybe_unlink(path_task(root$path$tasks, ids), recursive = TRUE, 
+  maybe_unlink(path_task(root$path$tasks, ids), recursive = TRUE,
          dry_run = dry_run)
 
   nms <- dir(root$path$bundles)
   contents <- lapply(nms, hipercow_bundle_load, root)
   to_delete <- vlapply(contents, function(x) any(ids %in% x$ids))
   if (any(to_delete)) {
     cli::cli_alert_info("Deleting {sum(to_delete)} task bundle{?s}")
-    maybe_unlink(file.path(root$path$bundles, nms[to_delete]), 
+    maybe_unlink(file.path(root$path$bundles, nms[to_delete]),
                  dry_run = dry_run)
   } else {
     cli::cli_alert_info("No task bundles need deleting")