get lhs object name when piping with dplyr

Question

I\'d like to have a function that can use pipe operator as exported from dplyr. I am not using magrittr.

df %>% my_function

How can I get df

Answer 1

Inspired by the link mentioned by gersht

You can go back 5 generations to get the name

df %>% {parent.frame(5)$lhs}

example as below:

library(dplyr)

a <- 1

df1 <- data.frame(a = 1:10)

df2 <- data.frame(a = 1:10)

a %>% {parent.frame(5)$lhs}

df1 %>% {parent.frame(5)$lhs}

df2 %>% {parent.frame(5)$lhs}