Correct variable name.

charles-plessy · May 12, 2024 · 3eb109a · 3eb109a
1 parent 3237070
commit 3eb109a
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/R/TSSlogo.R b/R/TSSlogo.R
@@ -36,26 +36,26 @@ setGeneric("TSSlogo",
 
 setMethod("TSSlogo", signature("CAGEexp"),
           function (x, upstream = 10, downstream = 10) {
-  TSSlogo(CTSScoordinatesGR(object), upstream = upstream, downstream = downstream)
+  TSSlogo(CTSScoordinatesGR(x), upstream = upstream, downstream = downstream)
 })
 
 #' @rdname TSSlogo
 
 setMethod("TSSlogo", signature("TagClusters"),
           function (x, upstream = 10, downstream = 10) {
-  TSSlogo(object$dominant_ctss |> as("CTSS"), upstream = upstream, downstream = downstream)
+  TSSlogo(x$dominant_ctss |> as("CTSS"), upstream = upstream, downstream = downstream)
 })
 
 setMethod("TSSlogo", signature("ConsensusClusters"),
           function (x, upstream = 10, downstream = 10) {
-  TSSlogo(object$dominant_ctss |> as("CTSS"), upstream = upstream, downstream = downstream)
+  TSSlogo(x$dominant_ctss |> as("CTSS"), upstream = upstream, downstream = downstream)
 })
 
 #' @rdname TSSlogo
 
 setMethod("TSSlogo", signature("CTSS"),
           function (x, upstream = 10, downstream = 10) {
-  .TSSlogo(object, upstream = upstream, downstream = downstream)
+  .TSSlogo(x, upstream = upstream, downstream = downstream)
 })
 
 .TSSlogo <- function(x, upstream=10, downstream=10) {
@@ -84,4 +84,4 @@ setMethod("TSSlogo", signature("CTSS"),
   gg$scales$scales[[1]]$breaks <- seq(    1       , upstream + downstream, by = 1)
   gg$scales$scales[[1]]$labels <- seq(1 - upstream,            downstream, by = 1)
   gg
-}
+}