R/inzDataList.R

In iNZightPlots: Graphical Tools for Exploring Data with 'iNZight'

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
}