Only print first line when record too long

ropensci · Apr 19, 2024 · c67eefe · c67eefe
1 parent fa271b4
commit c67eefe
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/gb-setup-tools.R b/R/gb-setup-tools.R
@@ -9,8 +9,8 @@ flatfile_read <- function(flpth) {
     indexes <- record_starts[i]:record_ends[i]
     record <- try(paste0(lines[indexes], collapse = '\n'))
     if (inherits(record, "try-error")){
-      print(record)
-      warning("record too long, dropping")
+      warning("Record too long, dropping. Here is the first line:")
+      print(lines[1])
       record = NULL
     }
     record