[R-gregmisc-users] SF.net SVN: r-gregmisc:[1723] trunk/gplots/R/venn.R

[<wa...@us...>]

Revision: 1723
          http://sourceforge.net/p/r-gregmisc/code/1723
Author:   warnes
Date:     2013-10-11 17:15:54 +0000 (Fri, 11 Oct 2013)
Log Message:
-----------
Fix bug in getVennCounts.data.frame when number of TRUE cases in each variable are equal.

Modified Paths:
--------------
    trunk/gplots/R/venn.R

Modified: trunk/gplots/R/venn.R
===================================================================
--- trunk/gplots/R/venn.R	2013-10-09 18:39:35 UTC (rev 1722)
+++ trunk/gplots/R/venn.R	2013-10-11 17:15:54 UTC (rev 1723)
@@ -22,7 +22,7 @@
     if( !all(unique(unlist(l)) %in% c(0,1))  )
       stop("Only indicator columns permitted")
 
-    l <- sapply( l, function(x) which(as.logical(x)))
+    l <- lapply( l, function(x) which(as.logical(x)))
     getVennCounts.list(l)
   }
 

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.