R/filter.categorical.R

In CC-HIC/ccdata: The critical care clinical data toolbox

#' @include ccTable.R

item.criterion <- function(conf, criterion) {
    names(conf)[sapply(conf, function(x) criterion %in% names(x))]
}

ccTable$methods(
    get.categories = function() {
        citems <- item.criterion(conf, "category")
        lapply(.self$conf[citems], function(x) names(x$category$levels))
    })

ccTable$methods(
    get.data.column = function(filter) {
        citems <- item.criterion(.self$conf, filter)
        return(.self$torigin[, c("site", "episode_id", citems), with=FALSE])
    }
)

ccTable$methods(
    filter.category = function() {
        "Check individual entries if they are the in the categories specified
        in conf."
        data <- .self$get.data.column("category")
        categories <- get.categories()
        in.category <- function(x, name) 
            x %in% c(categories[[name]], "NA", NA)
        .self$dfilter$category <- getfilter(data, in.category)
    })


ccTable$methods(
    filter.nodata = function() {
        data <- .self$get.data.column("nodata")
        nodata <- function(x, ...) {
            !all(x %in% c("NA", NA))
        }
        .self$dfilter$nodata <- getfilter(data, nodata)
    }
)