supprimer toutes les variables, sauf les fonctions

Question

J'ai chargé dans une R de la console de différents types d'objets. Je peux l'enlever à l'aide d'

rm(list=ls())

ou supprimer uniquement les fonctions (mais pas les variables) à l'aide de

rm(list=lsf.str())

Ma question est: est-il un moyen de supprimer toutes les variables, sauf les fonctions

Answer 1

Voici un one-liner qui supprime tous les objets , sauf pour les fonctions:

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

Il utilise setdiff pour trouver le sous-ensemble d'objets dans l'environnement mondial (retourné par ls()) qui n'ont pas de mode d' function (retourné par lsf.str())

Answer 2

Posté setdiff de réponses est agréable. J'ai juste pensé que je poste cette fonction, j'ai écrit un bout de temps. Son utilité est au lecteur :-).

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

Answer 3

Voici une jolie commode fonction que j'ai ramassé quelque part et ajusté un peu. Peut-être bien de garder dans le répertoire.

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