QuerySideEffect.R

emp = new.tableRef("emp", "PostgreSQL", "postgre.config", "public")
minsalary = 2500.0
q = select(function (x) {
             res = new.env()
             res$empno = x$empno
             res$ename = x$ename
             res$salary = function (dol){
               a = dol * 89.0 / 100.0
               while (a > 1000.0) a = a * 89.0 / 100.0
               a
             }(x$sal)
             res },
    where(function (x) x$sal >= minsalary,
    from(emp)))
results = query.force(q)
print(results)