Initializing R with Rf_initEmbeddedR...
Sourcing 'error.R'...
Invoking foo() via tryEval...Error in foo() : Stopping in function foo
 [1]  1  2  3  4  5  6  7  8  9 10
errorOccurred=1
Invoking foo() via tryEval once more...Error in foo() : Stopping in function foo
 [1]  1  2  3  4  5  6  7  8  9 10
errorOccurred=1
Trying sqrt with wrong and then correct argument...
Error in sqrt("") : non-numeric argument to mathematical function
Caught an error calling sqrt(). Try again with a different argument.
[1] 3
Sourcing 'foo.R'...
Calling foo with named arguments...
Printing the expression to be eval'ed...
[[1]]
function(...)
{
    args <- list(...)
    print(args)
    print(names(args))
    TRUE
}

$pch
[1] "+"

$id
[1] 123

[[4]]
[1]  TRUE FALSE

Eval'ing the expression...
$pch
[1] "+"

$id
[1] 123

[[3]]
[1]  TRUE FALSE

[1] "pch" "id"  ""   
Printing the expression to be tryEval'ed...
[[1]]
foo

$pch
[1] "+"

$id
[1] 123

[[4]]
[1]  TRUE FALSE

TryEval'ing the expression...
$pch
[1] "+"

$id
[1] 123

[[3]]
[1]  TRUE FALSE

[1] "pch" "id"  ""   
Calling R_getEmbeddingDllInfo...
Sourcing 'embedding.R'...
getDLLRegisteredRoutines('(embedding)'):
  .Call .Call.numParameters
1 twice                   2
[1]  2  4  6  8 10
DONE