implement retry in bucket push

Author: fawda123

.github/workflows/archive.yaml

@@ -1,9 +1,9 @@
 # For help debugging build failures open an issue on the RStudio community with the 'github-actions' tag.
 # https://community.rstudio.com/new-topic?category=Package%20development&tags=github-actions
 on:
-  # push:
-  #   branches:
-  #     - main
+  push:
+    branches:
+      - main
   schedule:
     - cron: "0 0 * * 0" # midnight on sunday
 

R/archive.R

@@ -66,9 +66,16 @@ for(i in seq_along(repos)){
     file_path
   )
 
-  # upload to S3
+  # upload to S3 in retry
   cat('\tUpload to S3...\n')
-  put_object(file_path, bucket = 'tbep-tech-github-backup', multipart = T)
+  buck <- 'tbep-tech-github-backup'
+  tryCatch(
+    put_object(file_path, bucket = buck, multipart = T),
+    error = function(e){
+      cat('\t\tRetrying...\n')
+      put_object(file_path, bucket = buck, multipart = T)
+    }
+  )
 
   # remove local file
   file.remove(file_path)