fix bug where features are not removed

grlloyd · grlloyd · commit 0501f3197f4a · 2019-11-22T17:00:07.000Z
diff --git a/R/blank_filter_class.R b/R/blank_filter_class.R
@@ -96,7 +96,9 @@ setMethod(f="model.predict",signature=c("blank_filter","dataset"),
         vmeta=vmeta[flags$blank_flags==1,,drop=FALSE]
         dataset.variable_meta(D)=vmeta
 
-        output.value(M,'filtered') = D
+        D$data=D$data[,flags$blank_flags==1,drop=FALSE]
+        M$filtered=D
+
         return(M)
     }
 )

Original file line number	Diff line number	Diff line change
`@@ -96,7 +96,9 @@ setMethod(f="model.predict",signature=c("blank_filter","dataset"),`
`96`	`96`	`vmeta=vmeta[flags$blank_flags==1,,drop=FALSE]`
`97`	`97`	`dataset.variable_meta(D)=vmeta`
`98`	`98`
`99`		`- output.value(M,'filtered') = D`
	`99`	`+ D$data=D$data[,flags$blank_flags==1,drop=FALSE]`
	`100`	`+ M$filtered=D`
	`101`	`+`
`100`	`102`	`return(M)`
`101`	`103`	`}`
`102`	`104`	`)`