use ensure R func