adding error catcher for debugging

TaikiSan21 · Dec 9, 2023 · aa5e2aa · aa5e2aa
1 parent a7b7d72
commit aa5e2aa
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/devel/matchTemplateFunctions.R b/devel/matchTemplateFunctions.R
@@ -7,7 +7,10 @@ loadTemplateBinary <- function(x, names, columns) {
     if(length(bin$data) == 0) {
         return(NULL)
     }
-    bin <- suppressWarnings(pbToDf(bin, templateNames=names)[columns])
+    bin <- try(suppressWarnings(pbToDf(bin, templateNames=names)[columns]))
+    if(inherits(bin, 'try-error')) {
+        stop('Problem loading binary file ', x)
+    }
     bin$UID <- as.character(bin$UID)
     bin$BinaryFile <- basename(x)
     bin$date <- convertPgDate(bin$date)