R Substring Last N Characters