una - eliminar un elemento en r

eliminar todas las variables, excepto las funciones

Question

He cargado en una consola R diferentes tipos de objetos. Puedo eliminarlos a todos usando

rm(list=ls())

o eliminar solo las funciones (pero no las variables) usando

rm(list=lsf.str())

Mi pregunta es: ¿hay alguna manera de eliminar todas las variables, excepto las funciones

Answer 1

Aquí hay un trazador de líneas que elimina todos los objetos a excepción de las funciones:

rm(list = setdiff(ls(), lsf.str()))

Utiliza setdiff para encontrar el subconjunto de objetos en el entorno global (como lo devuelve ls() ) que no tienen function modo (como lo devuelve lsf.str() )

Answer 2

Aquí hay una función bastante conveniente que recogí en algún lugar y me adapté un poco. Sería bueno mantenerlo en el directorio.

list.objects <- function(env = .GlobalEnv) 
{
    if(!is.environment(env)){
        env <- deparse(substitute(env))
        stop(sprintf(''"%s" must be an environment'', env))
    }
    obj.type <- function(x) class(get(x, envir = env))
    foo <- sapply(ls(envir = env), obj.type)
    object.name <- names(foo)
    names(foo) <- seq(length(foo))
    dd <- data.frame(CLASS = foo, OBJECT = object.name, 
                     stringsAsFactors = FALSE)
    dd[order(dd$CLASS),]
}

> x <- 1:5
> d <- data.frame(x)
> list.objects()
#        CLASS       OBJECT
# 1 data.frame            d
# 2   function list.objects
# 3    integer            x 
> list.objects(env = x)
# Error in list.objects(env = x) : "x" must be an environment

Answer 3

La respuesta publicada de setdiff es agradable. Solo pensé en publicar esta función relacionada que escribí hace un tiempo. Su utilidad depende del lector :-).

lstype<-function(type=''closure''){ 
    inlist<-ls(.GlobalEnv)
    if (type==''function'') type <-''closure''
    typelist<-sapply(sapply(inlist,get),typeof)
    return(names(typelist[typelist==type]))
}

Answer 4

Puede usar el siguiente comando para borrar TODAS las variables. Tenga cuidado porque no puede recuperar sus variables.

rm(list=ls(all=TRUE))