Add tryCatch to loop

Bisaloo · Sep 29, 2023 · 9d55f69 · 9d55f69
1 parent 30f6a8b
commit 9d55f69
Showing 1 changed file with 16 additions and 2 deletions.
diff --git a/R/xlsx_cutter.R b/R/xlsx_cutter.R
@@ -69,10 +69,24 @@ xlsx_cutter <- function(
 
   res <- lapply(
     data_files,
-    single_xlsx_cutter,
-    template_file, data_sheet, coords, noms
+    function(f) {
+      tryCatch(
+        single_xlsx_cutter(f, template_file, data_sheet, coords, noms),
+        warning = function(c) NULL,
+        error = function(c) NULL
+      )
+    }
   )
 
+  failed <- vapply(res, is.null, logical(1))
+
+  if (any(failed)) {
+    warning(
+      "parsing failed for ", sum(failed), " files:\n",
+      toString(data_files[failed])
+    )
+  }
+
   res <- as.data.frame(do.call(rbind, res))
 
   type.convert(res, as.is = TRUE)