Merge pull request dieterich-lab#37 from dieterich-lab/r-dev

R dev
jakobilab · Sep 7, 2017 · c9e9509 · c9e9509
2 parents 36262da + 69502a6
commit c9e9509
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 2 deletions.
diff --git a/R/circtools/DESCRIPTION b/R/circtools/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: circtools
 Title: Design and analysis of circ-RNA-seq experiments
-Version: 0.0.0.9000
+Version: 0.0.0.9001
 Authors@R: person("Alexey", "Uvarovskii", email = "alexey.mipt@gmail.com", role = c("aut", "cre"))
 Description: Visualisation tools for circular RNAs.
 License: GPL-3

diff --git a/R/circtools/NEWS.md b/R/circtools/NEWS.md
@@ -1,5 +1,8 @@
 # circtools 0.0.0.9000
 
 
+# circtools 0.0.0.9001
+
+- fix count plot
 
 
diff --git a/R/circtools/R/plot-segments.R b/R/circtools/R/plot-segments.R
@@ -194,7 +194,8 @@ plotTranscripts <- function(exons,
     margins(left   = 1,
             bottom = numMarginLines,
             right  = 0.2)
-    counts <- counts[match(counts$id, levels(factor(exons$tx_id))),]
+    counts <- counts[counts$id %in% levels(factor(exons$tx_id)),]
+    counts$id <- match(counts$id, levels(factor(exons$tx_id)))
     plotCounts(id    = counts$id,
                count = counts$count,
                ylim  = isoformsYLim)