R/ls.funs.R

ls.funs <- function (...)
  {
    mycall <- match.call()
    mycall[[1]] <- as.name("ls")
    nameList <- eval.parent(mycall)
    if(length(nameList)>0)
      {
        funcFlags <- sapply( nameList, function(x) is.function(get(x)) )
        return(nameList[funcFlags])
      }
    else
      return( list() )
  }
                        

Try the gdata package in your browser

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

gdata documentation built on May 2, 2019, 5:49 p.m.