From be4ca5bb0626f0c5b66abdc721454e4e0e567fe9 Mon Sep 17 00:00:00 2001
From: wkmor1 <willi@mmorris.email>
Date: Wed, 28 Aug 2024 15:31:50 +0300
Subject: [PATCH] Don't count lines when con is textConnection

---
 R/finbif_occurrence_load.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/finbif_occurrence_load.R b/R/finbif_occurrence_load.R
index e8fe391f..d3ac5b9f 100644
--- 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) {