QueryLambda.R

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