how-to-set-a-time-limit-on-a-funcion-in-r