R Remove End Of Cell