Create a native pipe compatible table() function

Question

I am looking to develop a tab(x, y) function or tab(x, y, d) (where d = data.frame) to replace this command:

d <- mtcars
d |> dplyr::select(cyl, vs) |> table()

I try:

d <- mtcars
tab <- function (x, y) {
  result <- table(x, y)
  result
}

Without pipe, it's ok:

tab(d$cyl, d$vs)

With native pipe it doesn't work:

d |> tab(cyl, vs)

But it works with exposition pipe ( %$% ) from the magrittr package

d %$% tab(cyl, vs)

How to adapt the function to work with the native pipe operator ( |> )?

Answer 1

It can work with the native pipe, one way is to create an anonymous function like:

(\(df){...})()

So you can have something like

d |> (\(df){
  
  with(df, tab(cyl, vs))
})()

   y
x    0  1
  4  1 10
  6  3  4
  8 14  0

Answer 2

tab <- function(d, x, y){
  eval(substitute(table(d$x, d$y)))
}

mtcars |> tab(cyl, vs)
   
     0  1
  4  1 10
  6  3  4
  8 14  0

Answer 3

We could use tabyl from janitor

library(janitor)
d |> 
   tabyl(cyl, vs)

-output

 cyl  0  1
   4  1 10
   6  3  4
   8 14  0

Answer 4

In the dplyr framework you can embrace function arguments:

tab <- function(d, x, y) {
    select(d, {{x}}, {{y}}) |>
        table()
}

mtcars |> tab(cyl, vs)
##>    vs
##> cyl  0  1
##>   4  1 10
##>   6  3  4
##>   8 14  0