add error trapping to flatfile_read()

ropensci · Apr 12, 2024 · 5f1f557 · 5f1f557
1 parent a0acb1a
commit 5f1f557
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/R/gb-setup-tools.R b/R/gb-setup-tools.R
@@ -7,7 +7,12 @@
 flatfile_read <- function(flpth) {
   generate_records <- function(i) {
     indexes <- record_starts[i]:record_ends[i]
-    record <- paste0(lines[indexes], collapse = '\n')
+    record <- try(paste0(lines[indexes], collapse = '\n'))
+    if (inherits(record, "try-error")){
+      print(record)
+      warning("record too long, dropping")
+      record = NULL
+    }
     record
   }
   connection <- file(flpth, open = "r")