Gostaria de poder imprimir o nome de um quadro de dados passado pelo pipe. Isso é possível? Eu posso fazer.

printname <- function(df){
    print(paste(substitute(df)))
}
printname(mtcars)
#[1] "mtcars"

No entanto, ele retorna "." quando esta função é canalizada usando omagrittr tubo.

mtcars %>% printname
# [1] "."

Isso seria útil ao escrever mensagens de erro personalizadas de funções usadas em processos de produção registrados - é difícil saber onde algo falhou se a única coisa no log for "."

Provavelmente seria o suficiente retornar a ligação original, que incluiria omtcars %>% peça.