update R wrapper demo