usuń wszystkie zmienne z wyjątkiem funkcji

Załadowałem do konsoli R różnego typu obiekty. Mogę je wszystkie usunąć za pomocą

rm(list=ls())

lub usuń tylko funkcje (ale nie zmienne) za pomocą

rm(list=lsf.str())

Moje pytanie brzmi: czy istnieje sposób na usunięcie wszystkich zmiennych z wyjątkiem funkcji

Oto jedna linijka, która usuwa wszystkie obiekty z wyjątkiem funkcji:

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

Używa setdiffdo znalezienia podzbioru obiektów w środowisku globalnym (zwróconych przez ls()), które nie mają trybu function(zwróconych przez lsf.str())

Wysłana setdiffodpowiedź jest miła. Pomyślałem, że opublikuję tę powiązaną funkcję, którą napisałem jakiś czas temu. Jego użyteczność zależy od czytelnika :-).

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

Możesz użyć następującego polecenia, aby wyczyścić WSZYSTKIE zmienne. Uważaj, ponieważ nie możesz odzyskać zmiennych.

rm(list=ls(all=TRUE))

Oto całkiem wygodna funkcja, którą gdzieś wybrałem i trochę dostosowałem. Dobrze byłoby trzymać się katalogu.

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

Napisałem to, aby usunąć wszystkie obiekty oprócz funkcji z bieżącego środowiska (używanym językiem programowania jest R z 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

Uwagi-

Argument "list" w rm (list =) musi być wektorem znakowym.

Nazwa obiektu na pozycji i obecnego środowiska jest zwracana z ls () [i], a sam obiekt z get (ls () [i]). Dlatego klasa obiektu jest zwracana z klasy (get (ls () [i]))