QueryCallFunction.R

dol_to_euro = function (dol) dol * 89.0 / 100.0

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 = dol_to_euro(x$sal)
             res },
    where(function (x) x$sal >= minsalary,
    from(emp)))
results = query.force(q)
print(results)