working RSQLite code