Update retitle.r