If I make this example
match_caller <- function(x) 1L crazy_function <- function(x) substitute(match_caller(x),list(x=x)) crazy_function2 <- function
