Напишите функцию для удаления объекта, если он существует

Я пытаюсь написать функцию, которая удаляет объект, если он существует. Причина в том, что я хочу избавиться от сообщения журнала Error: object 'arg 'не найдено. Я пробовал следующее:

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

К сожалению, это не удаляет объект, если он существует

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

Есть подсказки, что я здесь делаю не так?

Лучший Альбрехт