R/subset.R

In patperry/r-frame: Flexible Data Frames

subset.dataset <- function(x, subset, ...)
{
    x <- as.dataset(x)
    subset <- scopeQuoted(x, substitute(subset), parent.frame())
    subset <- as.logical(subset)

    nrow <- nrow(x)
    ns   <- length(subset)
    if (nrow != ns) {
        fmt <- "mismatch: data has %.0f rows, subset condition has %.0f"
        stop(sprintf(fmt, nrow, ns))
    }

    x[subset, ]
}