Использование sd как универсальной функции в R

Если у меня есть класс с именем foo , то легко перегрузить сводка функция

summary.foo = function(x, ...) print("bar")

Однако этот метод не работает с функцией sd , то есть

> bar = createFooClass()
> sd.foo = function(x, ...) print("Hi")
> sd(bar)
  error: is.atomic(x) is not TRUE

Как правильно перегрузить эту функцию?