Catch warnings during certificate creation

Author: ateucher

R/create_certificate.R

@@ -192,6 +192,14 @@ create_batch_certificates <- function(
             "i" = paste("  Error:", e$message)
           )
         )
+      }, 
+      warning = function(w) {
+        cli::cli_inform(
+          c(
+            "!" = "Warning while creating certificate for {.val {paste(first_name, last_name)}}",
+            "i" = paste("  Warning:", w$message)
+          )
+        )
       }
     )
   }
@@ -248,6 +256,14 @@ create_batch_pathways_certificates <- function(
             "i" = paste("  Error:", e$message)
           )
         )
+      },
+      warning = function(w) {
+        cli::cli_inform(
+          c(
+            "!" = "Warning while creating certificate for {.val {name}}",
+            "i" = paste("  Warning:", w$message)
+          )
+        )
       }
     )
   }