feat: only return warning when seqinfos are not all the same

js2264 · Mar 31, 2024 · b6b23e7 · b6b23e7
1 parent e50c9bf
commit b6b23e7
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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)
 }