eliminar todas las variables excepto las funciones

He cargado en una consola R diferentes tipos de objetos. Puedo eliminarlos 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?

Aquí hay una sola línea que elimina todos los objetos excepto las funciones:

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

Se usa setdiffpara encontrar el subconjunto de objetos en el entorno global (como lo devuelve ls()) que no tienen modo function(como lo devuelve lsf.str())

La setdiffrespuesta publicada es buena. 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]))
}

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

rm(list=ls(all=TRUE))

Aquí hay una función bastante conveniente que recogí en algún lugar y ajusté 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

Escribí esto para eliminar todos los objetos además de las funciones del entorno actual (el lenguaje de programación utilizado es R con IDE R-Studio):

    remove_list=c()                             # create a vector

      for(i in 1:NROW(ls())){                   # repeat over all objects in environment
        if(class(get(ls()[i]))!="function"){    # if object is *not* a function
         remove_list=c(remove_list,ls()[i])     # ..add to vector remove_list
         }    
      }

    rm(list=remove_list)                        # remove all objects named in remove_list

Notas

El argumento "lista" en rm (lista =) debe ser un vector de caracteres.

El nombre de un objeto en la posición i del entorno actual se devuelve de ls () [i] y el objeto en sí mismo de get (ls () [i]). Por lo tanto, la clase de un objeto se devuelve desde class (get (ls () [i]))