Interactive Tester
Update
foo { a <- function(b=function() { }) { } }