R/ls.function.R

ls.functions <- function() {
   x <- eval.parent(quote(ls()))
   x[sapply(x, function(x) typeof(get(x)) == "closure")]
}

ls.notfunctions <- function() {
   x <- eval.parent(quote(ls()))
   x[sapply(x, function(x) typeof(get(x)) != "closure")]
}

Try the cwhmisc package in your browser

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

cwhmisc documentation built on May 1, 2019, 7:55 p.m.