Escriba una función para eliminar el objeto si existe

Question

Estoy intentando escribir una función que elimine un objeto si existe. La razón es que quiero deshacerme del mensaje de registro Error: objeto 'arg' no encontrado. He intentado lo siguiente:

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

Desafortunadamente esto no quita el objeto si es que existe

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

¿Alguna pista de lo que hago mal?

Mejor Albrecht

Answer 1

Un modismo general para captar lo que el usuario proporcionó como argumento para una función es deparse(substitute(foo)). Esta función es similar a la de @Ian Ross pero empleando este lenguaje estándar:

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

donde supongo que sólo alguna vez desea eliminar objetos del entorno global, por lo tanto, el valor por defecto, pero se puede suministrar a través de un entorno env . Y aquí está en acción:

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

Answer 2

Esto es un poco feo, pero parece que funciona:

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

Es posible que desee especificar el entorno de manera diferente si no estás eliminando nombres desde el entorno de alto nivel .

Answer 3

Hazlo simple. Simplemente pase el nombre del objeto a su función como una cadena de caracteres, en lugar de tratar de obtener el nombre del objeto real.

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

Answer 4

probar este

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