fix #63 range filter bug

ropensci-archive · Jun 29, 2016 · 962832d · 962832d
1 parent d93b4f0
commit 962832d
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/R/range.filter.R b/R/range.filter.R
@@ -49,7 +49,7 @@ ccTable$methods(
     filter.ranges = function(select='red') {
         rgnum <- list('red'=1, 'amber'=2, 'green'=3)
         inselectrange <- function(x, ...) {
-            x > rgnum[[select]]
+            x >= rgnum[[select]]
         }
 
         if(is.null(.self$dquality$range) || 

diff --git a/example/clean_data.r b/example/clean_data.r
@@ -5,14 +5,14 @@ if (!exists("ccd_delta_num"))
     load('../data/delta_num.Rdata')
 ccd <- ccd_delta_num
 
-dt.sofa <- ccTable(conf=yaml.load_file('tests/data/test_sofa.yml'), record=ccd)
-# create table with all selected items in yaml conf with cadance of 1 hour.
+dt.sofa <- ccTable(conf=yaml.load_file('tests/data/ANALYSIS_REF.yaml'), record=ccd)
 dt.sofa$create.table(freq=1)
 #dt.sofa$filter.nodata()
 dt.sofa$filter.ranges()
-dt.sofa$filter.category()
-dt.sofa$filter.missingness()
-dt.sofa$apply.filters()
+#dt.sofa$filter.category()
+#dt.sofa$filter.missingness()
+#dt.sofa$filter.nodata()
+#dt.sofa$apply.filters()
 
 # imputation - substituting missing values
 #dt.sofa$imputation()