R/inzDataList.R

Defines functions inzDataList

inzDataList <- function(d, x) {

    if (x != "all") {
        w <- d$g1 == x
        df <- d[w & !is.na(w), , drop = FALSE]
    } else {
        df <- d
    }

    df <- df[, colnames(df) != "g1", drop = FALSE]
    df
}
iNZightVIT/iNZightPlots documentation built on Jan. 26, 2020, 9:06 p.m.