Update r_wrapper.c