QueryCallFunctionWithDeps.R

dol_to_euro = function (dol) dol * 89 / 100
dol_to_euro2 = dol_to_euro

emp = new.table("emp", "PostgreSQL", "postgre.config", "public")
minsalary = 2500
q4 = select(function (x) { res = new.env(); res$empno = x$empno; res$ename = x$ename;
              res$salary = dol_to_euro2(x$sal); res },
     where(function (x) x$sal >= minsalary,
     from(emp)))
results4 = query.force(q4)
for (r in results4) { print (sprintf("%d, %s, %d", r$empno, r$ename, r$salary)) }