Refactor .Rprofile