Napisz funkcję, aby usunąć obiekt, jeśli istnieje

Question

Próbuję napisać funkcję, która usuwa obiekt, jeśli istnieje. Powodem jest to, że chcę pozbyć się komunikatu logu Błąd: nie znaleziono obiektu "arg". Próbowałem następujące:

ifrm <- function(arg) 
{ 
    if(exists(as.character(substitute(arg)))){rm(arg)} 
} 

Niestety nie usunąć obiekt, jeśli istnieje

> ifrm <- function(arg) 
+ { 
+ if(exists(as.character(substitute(arg)))){rm(arg)} 
+ } 
> a <- 2 
> ifrm(a) 
> a 
[1] 2 

żadnych wskazówek co robię źle tutaj?

Najlepszy Albrecht

Answer 1

Ogólnym idiomem do pobrania tego, co użytkownik podał jako argument funkcji jest deparse(substitute(foo)). Funkcja ta jest podobna do tej z @Ian Ross ale używając tego standardowego idiom:

ifrm <- function(obj, env = globalenv()) { 
    obj <- deparse(substitute(obj)) 
    if(exists(obj, envir = env)) { 
     rm(list = obj, envir = env) 
    } 
} 

gdzie Zakładam, że tylko kiedykolwiek chcesz usunąć obiekty z otoczenia globalnego, stąd domyślnie, ale można dostarczyć środowisko poprzez env . A tutaj jest w akcji:

> a <- 1:10 
> ls() 
[1] "a" "ifrm" 
> ifrm(a) 
> ls() 
[1] "ifrm" 
> ifrm(a) 
> ls() 
[1] "ifrm" 

Answer 2

Jest to rodzaj brzydki, ale wydaje się działać:

ifrm <- function(arg) { 
    if (exists(as.character(substitute(arg)))) { 
    rm(list=as.character(substitute(arg)), envir=sys.frame()) 
    } 
} 

Możesz chcieć określić środowisko różnie jeśli nie usuwając nazwiska ze środowiska najwyższego poziomu .

Answer 3

Zachowaj to proste. Wystarczy podać nazwę obiektu do swojej funkcji jako ciąg znaków, zamiast próbować uzyskać nazwę z rzeczywistego obiektu.

ifrm <- function(x, env = globalenv()) 
{ 
    if(exists(x, envir = env)) 
    { 
    rm(list = x, envir = env) 
    } 
} 

Answer 4

Spróbuj

a=1; b=3; y=4; ls() 
rm(list = Filter(exists, c("a", "b", "x", "y"))) 
ls()