[Wavetiling-commits] r29 - pkg/R

[noreply at r-forge.r-project.org]

Author: kdbeuf
Date: 2012-03-09 13:52:19 +0100 (Fri, 09 Mar 2012)
New Revision: 29

Modified:
   pkg/R/helperFunctions.R
Log:


Modified: pkg/R/helperFunctions.R
===================================================================
--- pkg/R/helperFunctions.R	2012-03-09 10:29:48 UTC (rev 28)
+++ pkg/R/helperFunctions.R	2012-03-09 12:52:19 UTC (rev 29)
@@ -258,7 +258,7 @@
 	{
 		dp <- DisplayPars(exon="lightblue")
 	}
-	return(makeAnnotationTrack(region=annoFile[(annoFile$chromosome==chromosome)&(annoFile$strand==strand)&(annoFile$start<maxBase)&(annoFile$end>minBase)&(annoFile$feature==feature),c("start","end","feature","group","ID")],dp=dp))
+	return(makeAnnotationTrack(regions=annoFile[(annoFile$chromosome==chromosome)&(annoFile$strand==strand)&(annoFile$start<maxBase)&(annoFile$end>minBase)&(annoFile$feature==feature),c("start","end","feature","group","ID")],dp=dp))
 }
 
 
@@ -269,7 +269,7 @@
 		dp=DisplayPars(cex=1)
 	}
 	annohlp <- annoFile[(annoFile$chromosome==chromosome)&(annoFile$strand==strand)&(annoFile$start<maxBase)&(annoFile$end>minBase)&(is.element(annoFile$feature,feature)),c("ID","start","end")]
-	return(makeTextOverlay(annohlp$ID,x=(annohlp$start+annohlp$end)/2,y=y,region=region,dp=dp))
+	return(makeTextOverlay(annohlp$ID,xpos=(annohlp$start+annohlp$end)/2,ypos=y,region=region,dp=dp))
 }
 
 makeNewTranscriptRectangleOverlay <- function(sigRegions,locations,start,end,region=NULL,dp=NULL)