обрезать пробелы или другой нежелательный текст в R