[Vennerable-commits] r41 - pkg/Vennerable/R

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

Author: js229
Date: 2009-08-04 19:27:56 +0200 (Tue, 04 Aug 2009)
New Revision: 41

Modified:
   pkg/Vennerable/R/02TissueDrawing.R
Log:
face name bug i think

Modified: pkg/Vennerable/R/02TissueDrawing.R
===================================================================
--- pkg/Vennerable/R/02TissueDrawing.R	2009-08-04 17:26:45 UTC (rev 40)
+++ pkg/Vennerable/R/02TissueDrawing.R	2009-08-04 17:27:56 UTC (rev 41)
@@ -1588,7 +1588,7 @@
 		notInvolved <-  !faceNames %in% c(tempface2Name,"DarkMatter")
 		faceNames[ notInvolved ] <- paste(faceNames[ notInvolved ],"0",sep="")
 		if (outerFaceName=="DarkMatter") {
-			face2Name <- paste(rep("0",length(new1 at setList)-1),"1",sep="")
+			face2Name <- paste(c(rep("0",length(new1 at setList)-1),"1"),collapse="")
 		} else {
 			face2Name <- paste(outerFaceName,"1",sep="")
 		}