try to fix cloud deletion error when recorded bucket is NA

Author: wlandau

NEWS.md

@@ -2,6 +2,7 @@
 
 * Restore explicit references to "self" in `R6` classes.
 * Perform `crew` task retries.
+* Try to handle `NA` buckets in `store_delete_objects.tar_aws()` and `store_delete_objects.tar_gcp()`.
 
 # targets 1.10.0
 

R/class_aws.R

@@ -183,6 +183,9 @@ store_delete_objects.tar_aws <- function(store, meta, batch_size, verbose) {
     subset <- meta[meta$bucket_group == group,, drop = FALSE] # nolint
     example_path <- subset$path[[1L]]
     bucket <- store_aws_bucket(example_path)
+    if (anyNA(example_path) || anyNA(bucket)) {
+      next
+    }
     region <- store_aws_region(example_path)
     endpoint <- store_aws_endpoint(example_path)
     objects <- map(

R/class_gcp.R

@@ -142,6 +142,9 @@ store_delete_objects.tar_gcp <- function(store, meta, batch_size, verbose) {
     for (index in seq_len(nrow(subset))) {
       example_path <- subset$path[[index]]
       bucket <- store_gcp_bucket(example_path)
+      if (anyNA(example_path) || anyNA(bucket)) {
+        next
+      }
       key <- store_gcp_key(example_path)
       version <- store_gcp_version(example_path)
       message <- paste(