R Get String Before Underscore