R/lookfor.R

In leeper/lookfor: Find What You're Looking For

lookfor <- function(what, ls_opts = list(name = ".GlobalEnv"), ...){
    
    # list objects in 
    s <- do.call("ls", ls_opts)
    
    # look for objects from global environment
    genv <- lookin(s, what, object.name = ".GlobalEnv")
    
    # look for objects in objects from global environment
    m <- mget(s, envir = .GlobalEnv)
    d <- list()
    for(i in seq_along(s))
        d[[i]] <- lookin(m[[i]], what = what, object.name = s[i], ...)
    names(d) <- s
    
    # look for objects in loaded namespaces
    ns <- loadedNamespaces()
    ns_names <- lookin(ns, what, object.name = "loadedNamespaces()", ...)
    in_ns <- setNames(lapply(ns, function(x) lookin(ls(asNamespace(x)), what = what, ...)), ns)
    
    # look for objects on search path
    search_path <- lookin(search(), what, object.name = "search()", ...)
    
    structure(list(what = what, 
                   environment = genv, 
                   objects = d, 
                   namespaces = ns_names, 
                   fromNamespaces = in_ns,
                   search = search_path),
              class = "lookfor")
}