вернуть имя набора данных в R

# in r
a <- data.frame()
deparse(substitute(a))
Poor Porcupine