$success
[1] FALSE

$message
$message$message
[1] "be"              "a call to `log`" "is"              "a call to `ln`" 

$message$wrap
$message$wrap[[1]]
NULL

$message$wrap[[2]]
NULL



$call.match
a ~ b + ln(b) + c - 1
<environment: 0x7f8de2864120>

$call.ind
NULL[[3]][[2]][[2]][[3]][[1]]

$call.ind.sub.par
$call.ind.sub.par[[1]]
NULL

$call.ind.sub.par[[2]]
[1] 3


$call.orig
a ~ b + ln(b) + c - 1
<environment: 0x7f8de2864120>

$success
[1] FALSE

$message
$message$message
[1] "be"            "a call to `-`" "is"            "a call to `+`"

$message$wrap
$message$wrap[[1]]
NULL

$message$wrap[[2]]
NULL



$call.match
a ~ b + log(b) + c + 1
<environment: 0x7f8de2864120>

$call.ind
NULL[[3]][[1]]

$call.ind.sub.par
$call.ind.sub.par[[1]]
NULL

$call.ind.sub.par[[2]]
[1] 3


$call.orig
a ~ b + log(b) + c + 1
<environment: 0x7f8de2864120>

l0 <- quote(a + b + fun(x + funz(matrix_over[25, 32]) + transform(iris, 
    x = Sepal.Width * 3)/the_donkey_ate_a_carrot %in% {
    paste0(match(letter, LETTERS), c("hello there"))
}))

a + b + fun(x + funz(matrix_over[25, 32]) + transform(iris, x = Sepal.Width *

[1] "a + b + fun(x + funz(matrix_over[25, 32]) + transform(iris, x = Sepal.Width * "
[2] "    3)/the_donkey_ate_a_carrot %in% {"                                         
[3] "    paste0(match(letter, LETTERS), c(\"hello there\"))"                        
[4] "})"

32]) + transform(iris, x = Sepal.Width *

[1] "a + b + fun(x + funz(matrix_over[25, "        
[2] "    32]) + transform(iris, x = Sepal.Width * "
[3] "    3)/the_donkey_ate_a_carrot %in% "         
[4] "    {"                                        
[5] "        paste0(match(letter, LETTERS), "      
[6] "            c(\"hello there\"))"              
[7] "    })"

> a + b + fun(x + funz(matrix_over[25, 32]) + transform(iris, x = Sepal.Width * 
+     3)/the_donkey_ate_a_carrot %in% {
+     paste0(match(letter, LETTERS), c("hello there"))
+ })

[1] "> a + b + fun(x + funz(matrix_over[25, 32]) + transform(iris, x = Sepal.Width * \n+     3)/the_donkey_ate_a_carrot %in% {\n+     paste0(match(letter, LETTERS), c(\"hello there\"))\n+ })\n"