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")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.