R Substring First N Characters