Ensure robustness against different structures encoding the dominant …

…CTSS. See #70
charles-plessy · May 10, 2024 · fd2fbfb · fd2fbfb
1 parent e58a6dc
commit fd2fbfb
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/R/ExportMethods.R b/R/ExportMethods.R
@@ -526,7 +526,12 @@ function( object, what, qLow, qUp, colorByExpressionProfile, oneTrack) {
 
 
 .exportToTrack_clusters <- function( object, what, qLow, qUp, colorByExpressionProfile, oneTrack) {
-  object$thick <- ranges(object$dominant_ctss)
+  # Simplify this after the format of dominant_ctss is standardised in all cluster objects.
+  ranges_ <- function(x) {
+    if (inherits(x, "GRanges")) return(IRanges(ranges(x)))
+    IRanges(x)
+  }
+  object$thick <- ranges_(object$dominant_ctss)
   object$dominant_ctss <- NULL
   names(object) <- NULL
   object$name <- NA