Jak mogę usunąć wszystkie obiekty poza jednym z obszaru roboczego w R?

Używanie funkcji keep z pakietu gdata jest dość wygodne.

> ls()
[1] "a" "b" "c"

library(gdata)
> keep(a) #shows you which variables will be removed
[1] "b" "c"
> keep(a, sure = TRUE) # setting sure to TRUE removes variables b and c
> ls()
[1] "a"

Myślę, że kolejną opcją jest otwarcie obszaru roboczego w RStudio, a następnie zmiana listy na grid w prawym górnym rogu środowiska(obrazek poniżej). Następnie zaznacz obiekty, które chcesz wyczyścić, a na koniec kliknij Wyczyść.

Aby zachować wszystkie obiekty, których nazwy pasują do wzorca, możesz użyć grep, w następujący sposób:

to.remove <- ls()
to.remove <- c(to.remove[!grepl("^obj", to.remove)], "to.remove")
rm(list=to.remove)

Zastąp v nazwą obiektu, który chcesz zachować

rm(list=(ls()[ls()!="v"]))

Końcówka kapelusza: http://r.789695.n4.nabble.com/Removing-objects-and-clearing-memory-tp3445763p3445865.html

Właśnie spędziłem kilka godzin szukając odpowiedzi na podobne, ale nieco inne pytanie - musiałem być w stanie usunąć wszystkie obiekty w R (w tym funkcje) z wyjątkiem garstki wektorów.

Jeden sposób, aby to zrobić:

rm(list=ls()[! ls() %in% c("a","c")])

Gdzie wektory, które chcę zachować, noszą nazwy " a " i "c".

Mam nadzieję, że pomoże to każdemu, kto szuka tego samego rozwiązania!

Wykorzystuje To opcję ls()'s pattern, w przypadku gdy masz wiele obiektów o tym samym wzorze, których nie chcesz zachować:

> foo1 <- "junk"; foo2 <- "rubbish"; foo3 <- "trash"; x <- "gold"  
> ls()
[1] "foo1" "foo2" "foo3" "x"   
> # Let's check first what we want to remove
> ls(pattern = "foo")
[1] "foo1" "foo2" "foo3"
> rm(list = ls(pattern = "foo"))
> ls()
[1] "x"

require(gdata)
keep(object_1,...,object_n,sure=TRUE)
ls()

Z wewnątrz funkcji, rm wszystkie obiekty w .GlobalEnv z wyjątkiem funkcji

initialize <- function(country.name) {

  if (length(setdiff(ls(pos = .GlobalEnv), "initialize")) > 0) {
    rm(list=setdiff(ls(pos = .GlobalEnv), "initialize"), pos = .GlobalEnv)
  }

}

Co ty na to?

# Removes all objects except the specified & the function itself.

rme <- function(except=NULL){
  except = ifelse(is.character(except), except, deparse(substitute(except)))
  rm(list=setdiff(ls(envir=.GlobalEnv), c(except,"rme")), envir=.GlobalEnv)
}

Zakładając, że chcesz usunąć wszystkie obiekty poza df ze środowiska:

rm(list = ls(pattern="[^df]"))

Pomyślmy inaczej, co jeśli chcemy usunąć grupę? spróbuj tego,

 rm(list=ls()[grep("xxx",ls())]) 

Osobiście nie lubię zbyt wielu tabel, zmiennych na ekranie, ale nie mogę ich uniknąć. Więc nazywam tymczasowe rzeczy zaczynając od "xxx", więc mogę je usunąć po tym, jak nie jest już używany.

Poniższe spowoduje usunięcie wszystkich obiektów z konsoli

rm(list = ls())