¿Hay alguna manera de obtener un vector con el nombre de todas las funciones que uno podría usar en R?

Question

Me gustaría recibir una llamada que me devuelva un vector con los nombres de todas las funciones que podría llamar en la sesión R actual. ¿Alguien sabe cómo lograr esto?

(me gustaría comprobar usuario ha introducido las variables contra este vector tuvimos algún problema imprevisto con los usuarios entrar por ejemplo, c como nombres de variables.)

ACTUALIZACIÓN: me gustaría obtener los nombres de las funciones de todo paquetes actualmente cargados.

SOLUCIÓN (a mitad de camino): Sobre la base de la punta Joris Meys con lsf.str() me ocurrió la siguiente función que devuelve un vector ordenada con todos los nombres de las funciones disponibles en la actualidad:

getFunctionNames <- function() { 
    loaded <- (.packages()) 
    loaded <- paste("package:", loaded, sep ="") 
    return(sort(unlist(lapply(loaded, lsf.str)))) 
} 

Bu, t ver también los comentarios sobre la publicación de Joris Meys para respuestas aún mejores.

Answer 1

Yo usaría lsf.str() como un comienzo.

por ejemplo: x <- as.character(lsf.str("package:base")) le da una lista de todas las funciones en el paquete base. Podría agregar todos los paquetes con los que desea verificar. stats y utils vienen a la mente primero.

EDIT: Respecto a su pregunta acerca de los paquetes cargados actualmente:

x < - no listados (sapply (búsqueda() [- 1], la función (x) as.character (lsf.str (x))))ver los comentarios

pkgs <- search() 
pkgs <- pkgs[grep("package:",pkgs)] 
y <- unlist(sapply(pkgs,lsf.str)) 

hace el truco.

Answer 2

me preguntó un Q similares en I-Help hace muchas lunas (2007) y el Prof. Brian Ripley proporcionan esto como una solución:

findfuns <- function(x) { 
    if(require(x, character.only=TRUE)) { 
     env <- paste("package", x, sep=":") 
     nm <- ls(env, all=TRUE) 
     nm[unlist(lapply(nm, function(n) exists(n, where=env, 
               mode="function", 
               inherits=FALSE)))] 
    } else character(0) 
} 
pkgs <- dir(.Library) 
z <- lapply(pkgs, findfuns) 
names(z) <- pkgs 
Z <- sort(unique(unlist(z))) 

cual da salida como:

> head(Z) 
[1] "^"  "-"  "-.Date" "-.POSIXt" ":"  "::" 

Este fue para encontrar todas las funciones en los paquetes especificados por el objeto pkgs para que pueda controlar qué paquetes se cargan/contrastan.

Una versión que funciona en el conjunto que está cargado de paquetes sería modificado:

findfuns2 <- function(pkgs) { 
    nm <- ls(pkgs, all = TRUE) 
    nm[unlist(lapply(nm, function(n) exists(n, where = pkgs, 
              mode = "function", 
              inherits = FALSE)))] 
    if(isTRUE(all.equal(length(nm), 0))) 
     character(0) 
    else 
     nm 
} 

pkgs <- search() 
pkgs <- pkgs[grep("package:", pkgs)] 
z <- lapply(pkgs, findfuns2) 
z <- sort(unique(unlist(z))) 
head(z)