Ensure Tag Clusters have a Seqinfo

Closes charles-plessy#63
snikumbh · Apr 10, 2022 · 9f985be · 9f985be
1 parent de1c522
commit 9f985be
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/R/ClusteringMethods.R b/R/ClusteringMethods.R
@@ -165,6 +165,8 @@ setMethod( "clusterCTSS", "CAGEexp"
   }
 
   CTSSclusteringMethod(ctss.cluster.list) <- method
+  seqlevels(ctss.cluster.list) <- seqlevels(CTSStagCountSE(object))
+  seqinfo(ctss.cluster.list)   <- seqinfo(CTSStagCountSE(object))
   metadata(object)$tagClusters <- ctss.cluster.list
   object
 })

diff --git a/data/exampleCAGEexp.RData b/data/exampleCAGEexp.RData