From: Bo Li <bli@cs.wisc.edu>
Date: Fri, 5 Apr 2013 18:16:29 +0000 (-0500)
Subject: Removed a too stringent sanity check in rsem-gen-transcript-plots
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=8b43fb90ed3bc98f5de8d6f934ea6739dbd1e694;p=rsem.git

Removed a too stringent sanity check in rsem-gen-transcript-plots
---

diff --git a/rsem-gen-transcript-plots b/rsem-gen-transcript-plots
index 21d1db8..552632a 100755
--- a/rsem-gen-transcript-plots
+++ b/rsem-gen-transcript-plots
@@ -76,7 +76,7 @@ generate_a_page <- function(tids, gene_id = NULL) {
       vec <- readdepth_uniq[[tids[i]]]
       stopifnot(!is.null(vec))
       if (is.na(vec[[2]])) wiggle_uniq <- rep(0, vec[[1]]) else wiggle_uniq <- as.numeric(unlist(strsplit(vec[[2]], split = " ")))
-      stopifnot(len == length(wiggle_uniq), len == sum(wiggle >= wiggle_uniq))
+#      stopifnot(len == length(wiggle_uniq), len == sum(wiggle >= wiggle_uniq)) 
       heights <- rbind(wiggle_uniq, wiggle - wiggle_uniq)	
       barplot(heights, space = 0, border = NA, names.arg = 1:len, col = c("black", "red")) 
     }