# When you call it directly, it simply returns what you typed
call_inspect(foo(bar), "" %>% identity())
# Pass `call_inspect` to functionals like `lapply()` or `map()` to
# inspect the calls they create around the supplied function
lapply(1:3, call_inspect)
Run the code above in your browser using DataLab