ls functions

ls_env.R

find.funs <-function(pos = 1, ..., exclude.mcache = TRUE, mode = 'function') {
    findo <- function(pos2) {
      o <- named(lsall(pos = pos2, ...))
      
      if (!length(o))
        return(character(0))
      # keep if exists
      keep <- sapply(o, exists, where = pos2, mode = mode, inherits = FALSE)
      
      if (!any(keep))
        return(character(0))
      
      names(o) <- NULL
      o[keep]
    }
    
    # make sure we are finding functions in R environments
    if (is.environment(pos))
      pos <- list(pos)
    else
      pos <- lapply(pos, as.environment)
    unlist(lapply(pos, findo), use.names = FALSE)
}

named <- function (x) {
  if (!length(x))
    return(x)
  
  names(x) <- as.character(x)
  x
}

lsall <- function(...) {
  mc <- match.call(expand.dots = TRUE)
  mc$all.names <- TRUE
  mc[[1]] <- as.name('ls')
  eval(mc, parent.frame())
}