From b6b23e70e72c49bd48e38e7571e1fcbd82775c79 Mon Sep 17 00:00:00 2001
From: js2264 <jacquesserizay@gmail.com>
Date: Sun, 31 Mar 2024 14:04:41 +0200
Subject: [PATCH] feat: only return warning when seqinfos are not all the same

---
 R/utils.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/utils.R b/R/utils.R
index 95f0ace..0fd6c3b 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -10,7 +10,7 @@
             )
         }) |> unique()
         if (length(unique(sis)) > 1) 
-            stop("More than 1 seqinfo inferred from the tracks.")
+            warning("EXPERIMENTAL: More than 1 seqinfo inferred from the tracks. Using `seqinfo` from the first track.")
         si <- sis[[1]]
     } 
     else {
@@ -32,7 +32,7 @@
     n <- names(tracks)
     sis <- lapply(tracks, seqinfo) |> unique()
     if (length(sis) > 1) 
-        stop("More than 1 seqinfo inferred from the tracks.")
+        warning("EXPERIMENTAL: More than 1 seqinfo inferred from the tracks. Using `seqinfo` from the first track.")
     si <- sis[[1]]
     return(tracks)
 }