R/apply.R

Defines functions oaih_apply

oaih_apply <-
function(x, FUN, ..., drop = TRUE)
{
    y <- lapply(x, FUN, ...)
    if(drop && all(lengths(y) == 1L))
        y <- unlist(y, recursive = FALSE)
    if(is.array(x))
        y <- array(y, dim = dim(x), dimnames = dimnames(x))
    y
}

Try the OAIHarvester package in your browser

Any scripts or data that you put into this service are public.

OAIHarvester documentation built on Feb. 16, 2023, 9:50 p.m.