R/alias.R

In CellBench: Construct Benchmarks for Single Cell Analysis Methods

## File containing simple function aliases that do not need to be tested.

# apply function across rows
row_apply <- purrr::partial(apply, MARGIN = 1)

# apply function down columns
col_apply <- purrr::partial(apply, MARGIN = 2)

# glue collapse with default sep and last
collapse_with_comma <- purrr::partial(
    glue::glue_collapse,
    sep = ", ",
    last = " and "
)

is.error <- function(x) {
    is(x, "error")
}