diff --git a/R/compIdent_bamRcnt.R b/R/compIdent_bamRcnt.R index ec7c776..8d4226f 100644 --- a/R/compIdent_bamRcnt.R +++ b/R/compIdent_bamRcnt.R @@ -37,11 +37,11 @@ compIdent_bamRcnt <- function(bamfile, genome, target=NULL, debug=FALSE) # Target locations must conform to the bam files being read in, create # two versions one with "chr1" and the other with "1" and use whichever is # appropriate + target.chr <- target if(any(grepl("chr", target$chr))) { target$chr <- gsub("chr", "", target$chr) } else { - target.chr <- target target.chr$chr <- paste0("chr", target$chr) } @@ -115,4 +115,4 @@ compIdent_bamRcnt <- function(bamfile, genome, target=NULL, debug=FALSE) "var", "name")] return(x) -} \ No newline at end of file +}