def r_rinruby_pull
    @writer.print <<-EOF
#{RinRuby_Env}$pull <- function(var){
  #{RinRuby_Env}$session.write(function(write){
    if ( inherits(var ,"try-error") ) {