Fist time to save R working directory