Стоп от повторения

Question

У меня есть файл, который содержит случайный текст. Я назову этот text.txt

Я использовал этот код:

readfile <- read_file("text.txt")

Когда я набираю readfile в консоли в rstudio, так:

>readfile

Я получаю результат, который выглядит следующим образом:

\r\r\n random sentence. Blah blah blah.
Blah blah \r\r\n blah blah. \r\r\n blah.

Это, вероятно, происходит из-за расстояния. Двойник вызывает у меня проблемы, и я не знаю, как удалить это повторение. Мне было интересно, если есть способ удалить один, так в основном:

\r\n random sentence. Blah blah blah.
Blah blah \r\n blah blah. \r\n blah.

Answer 1

Вы должны быть в состоянии сделать это с gsub и регулярным выражением.

Text = "\r\r\n random sentence. Blah blah blah.
Blah blah \r\r\n blah blah. \r\r\n blah."

Text2 = gsub("\r\r+", "\r", Text)

Text2
[1] "\r\n random sentence. Blah blah blah.\nBlah blah \r\n blah blah. \r\n blah."
cat(Text2)
  random sentence. Blah blah blah.
Blah blah   blah blah.   blah.

Я использовал "\ r \ r +", чтобы он также охватывал случай, когда существует более двух последовательных \ r.