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

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

Author: pommedeterre
Date: 2014-10-05 20:44:50 +0200 (Sun, 05 Oct 2014)
New Revision: 52

Modified:
   /
   pkg/rsubgroup/R/classes.R
Log:
Fix the null attribute bug ([#5931] Crash if attribute is set to NULL != documentation)


Property changes on: 
___________________________________________________________________
Added: svn:ignore
   + .Rproj.user
.Rhistory
.RData


Modified: pkg/rsubgroup/R/classes.R
===================================================================
--- pkg/rsubgroup/R/classes.R	2014-09-10 15:40:17 UTC (rev 51)
+++ pkg/rsubgroup/R/classes.R	2014-10-05 18:44:50 UTC (rev 52)
@@ -28,6 +28,8 @@
   return(.jarray(attributeIDs))
 }
 
+setClassUnion("vectorOrNull",members=c("vector", "NULL"))
+
 setClass("SDTaskConfig",
     representation(
         qf          = "character",
@@ -39,7 +41,7 @@
         nodefaults  = "logical",
         relfilter   = "logical",
         postfilter  = "character",
-        attributes  = "vector"
+        attributes  = "vectorOrNull"
     ),
     prototype(qf="ps", method="sdmap", k = as.integer(20), minqual = as.integer(0), minsize = as.integer(0),
         maxlen = as.integer(7), nodefaults = FALSE, relfilter = FALSE, postfilter = "", attributes = NULL)