obtener el nombre del objeto lhs al conectar con dplyr

Me gustaría tener una función que pueda usar el operador de tubería como se exporta desde dplyr. No estoy usando magrittr.

df %>% my_function

¿Cómo puedo obtener el nombre df? Si lo intento

my_function <- function(tbl){print(deparse(substitute(tbl)))}

vuelve

[1] "."

mientras me gustaría tener [1] "df"

¿Cualquier sugerencia?

Gracias de antemano,
Nicola

Respuestas a la pregunta(2)

Su respuesta a la pregunta