packrat/lib/x86_64-apple-darwin15.6.0/3.6.0/BiocGenerics/unitTests/test_order.R

test_ellipsis_forwarding_for_order <- function()
{
    x <- list(c(NA,11:13), c(21:22,NA))

    target <- lapply(x, base::order)
    checkIdentical(target, lapply(x, order))

    target <- lapply(x, base::order, na.last=TRUE)
    checkIdentical(target, lapply(x, order, na.last=TRUE))

    target <- lapply(x, base::order, na.last=FALSE)
    checkIdentical(target, lapply(x, order, na.last=FALSE))

    target <- lapply(x, base::order, na.last=NA)
    checkIdentical(target, lapply(x, order, na.last=NA))
}
adnaniazi/krauseNiazi2019Analyses documentation built on June 9, 2019, 7:22 p.m.