Don't count lines when con is textConnection

luomus · Aug 28, 2024 · be4ca5b · be4ca5b
1 parent 22f6d7f
commit be4ca5b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/finbif_occurrence_load.R b/R/finbif_occurrence_load.R
@@ -1517,7 +1517,7 @@ nlines <- function(fb_occurrence_obj) {
 
  n <- -1L
 
- cond <- TRUE
+ cond <- !inherits(con, "textConnection")
 
  while (cond) {