Merge branch 'reverseCumulativesGGplot' into barOikPrivateBranch

charles-plessy · Jul 31, 2023 · a9d5ab2 · a9d5ab2
2 parents e48ebb8 + 7ede402
commit a9d5ab2
Show file tree

Hide file tree

Showing 3 changed files with 27 additions and 0 deletions.
diff --git a/R/ExportMethods.R b/R/ExportMethods.R
@@ -179,6 +179,24 @@ setMethod("plotReverseCumulatives", "GRangesList",
   .plotReverseCumulatives(L, values, fitInRange, group)
 })
 
+#' @rdname plotReverseCumulatives
+
+setMethod("plotReverseCumulatives", "GRanges",
+          function( object, values = c("raw", "normalized")
+                    , fitInRange = c(10, 1000)
+                    , group = NULL) {
+  if(is.null(group)) {
+    sampleLabels <- "No sample name available"
+  } else {
+    sampleLabels <- group
+  }
+  L <- List(score(object))
+  names(L) <- sampleLabels
+  metadata(L)$colData <- metadata(object)$colData
+  if (is.null(metadata(L)$colData)) metadata(L)$colData <- DataFrame(sampleLabels=sampleLabels)
+  .plotReverseCumulatives(L, values, fitInRange, group = NULL)
+})
+
 #' @name plotInterquantileWidth
 #' 
 #' @title Plot cluster widths

diff --git a/man/plotReverseCumulatives.Rd b/man/plotReverseCumulatives.Rd
diff --git a/man/tagClusters.Rd b/man/tagClusters.Rd