[Subgroup-commits] r60 - pkg/rsubgroup/R

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

Author: atzmueller
Date: 2015-06-12 11:48:04 +0200 (Fri, 12 Jun 2015)
New Revision: 60

Modified:
   pkg/rsubgroup/R/subgroup.R
Log:
bugfix in is.matching

Modified: pkg/rsubgroup/R/subgroup.R
===================================================================
--- pkg/rsubgroup/R/subgroup.R	2015-06-09 13:21:54 UTC (rev 59)
+++ pkg/rsubgroup/R/subgroup.R	2015-06-12 09:48:04 UTC (rev 60)
@@ -301,10 +301,10 @@
 
 is.matching <- function(pattern, data.list) {
   selectors <- pattern at selectors
-  matching <- FALSE
+  matching <- TRUE
   for (sel in names(selectors)) {
-    if (data.list[[sel]] == selectors[[sel]]) {
-      matching <- TRUE
+    if (data.list[[sel]] != selectors[[sel]]) {
+      matching <- FALSE
       break
     }
   }