Kembalikan nama dataset di r

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