QueryComplex2.R

minsalary = 2500
emp = new.tableRef("emp", "PostgreSQL", "postgre.config", "public")
q = query.select(function (x) {
             res = new.env()
	     res$empno = x$empno
             res$ename = x$ename
             res$salary = (function (dol) dol * 89 / 100)(x$sal)
             res },
    query.where(function (x) x$sal >= minsalary || x$mgr + minsalary > 10300,
    query.from(emp)))
results = query.force(q)
print(results)