R: Запутался в замене символов \r с помощью gsub

Если отбросить на минутку тот факт, что вы каждый раз, когда вы анализируете html с помощью регулярного выражения, это вызывает испорченные души в царство живых, Я думаю, сейчас подходящее время для PCRE \v. Как говорится в документах:

\v соответствует любому символу, который считается вертикальным пробелом; сюда входят символы возврата каретки и перевода строки (новая строка), а также несколько других символов, перечисленных в таблице ниже.

x <- "MYLINEBREAK01\r \r SURNAME, Name (LT)\r \r\nMYBREAK01"
gsub("\\v", "", x, perl = TRUE)
# [1] "MYLINEBREAK01  SURNAME, Name (LT) MYBREAK01"

Похоже, вы хотите сделать что-то странное с интервалом. Мы можем использовать отрицательный просмотр назад, чтобы удалить все пробелы, если им не предшествует запятая. Как вы сказали, вы не совсем уверены, что это пробелы, я использовал PCRE \h:

\h соответствует любому символу, который считается горизонтальным пробелом; сюда входят символы пробела и табуляции платформы, а также некоторые другие.

gsub("\\v", "", x, perl = TRUE) |>
    gsub("(?<!,)\\h", "", x = _, perl = TRUE)

# [1] "MYLINEBREAK01SURNAME, Name(LT)MYBREAK01"

\h и \v будут соответствовать следующим символам, похожим на пробелы. Большинству из них не соответствует \s в R (хотя согласно спецификации PCRE они должны быть):

0x0009        CHARACTER TABULATION   h s
0x000a              LINE FEED (LF)    vs
0x000b             LINE TABULATION    vs  [1]
0x000c              FORM FEED (FF)    vs
0x000d        CARRIAGE RETURN (CR)    vs
0x0020                       SPACE   h s
0x0085             NEXT LINE (NEL)    vs  [2]
0x00a0              NO-BREAK SPACE   h s  [2]
0x1680            OGHAM SPACE MARK   h s
0x2000                     EN QUAD   h s
0x2001                     EM QUAD   h s
0x2002                    EN SPACE   h s
0x2003                    EM SPACE   h s
0x2004          THREE-PER-EM SPACE   h s
0x2005           FOUR-PER-EM SPACE   h s
0x2006            SIX-PER-EM SPACE   h s
0x2007                FIGURE SPACE   h s
0x2008           PUNCTUATION SPACE   h s
0x2009                  THIN SPACE   h s
0x200a                  HAIR SPACE   h s
0x2028              LINE SEPARATOR    vs
0x2029         PARAGRAPH SEPARATOR    vs
0x202f       NARROW NO-BREAK SPACE   h s
0x205f   MEDIUM MATHEMATICAL SPACE   h s
0x3000           IDEOGRAPHIC SPACE   h s

Дополнительную информацию см. в документации PCRE.

обновление для решения вопроса обновления:

str_replace_all() с просмотром назад/просмотром в регулярном выражении и с функцией замены.

library(stringr)

s_ <- "...lorem \n ipsumMYLINEBREAK01\r \r SURNAME, Name (LT)\r \r\nMYBREAK01lorem \n ipsum..."
s_ <- str_c(s_, s_)
str_view(s_)
#> [1] │ ...lorem 
#>     │  ipsumMYLINEBREAK01{\r} {\r} SURNAME, Name (LT){\r} {\r}
#>     │ MYBREAK01lorem 
#>     │  ipsum......lorem 
#>     │  ipsumMYLINEBREAK01{\r} {\r} SURNAME, Name (LT){\r} {\r}
#>     │ MYBREAK01lorem 
#>     │  ipsum...

# minimum number of whitespace and non-whitespace characters between 
# positive lookbehind and lookahead patterns, 
# match gets first passed though str_squish() and then is used for replacement
s_2 <- str_replace_all(s_, "(?<=MYLINEBREAK01)[\\s\\S]*?(?=MYBREAK01)", str_squish)
str_view(s_2)
#> [1] │ ...lorem 
#>     │  ipsumMYLINEBREAK01SURNAME, Name (LT)MYBREAK01lorem 
#>     │  ipsum......lorem 
#>     │  ipsumMYLINEBREAK01SURNAME, Name (LT)MYBREAK01lorem 
#>     │  ipsum...

первоначальный ответ:

Звучит как работа для stringr::str_squish(), что по сути является причудливым названием для gsub("\\s+", " ", s_) |> trimws().

s_ <- "MYLINEBREAK01\r \r SURNAME, Name (LT)\r \r\nMYBREAK01"
stringr::str_squish(s_)
#> [1] "MYLINEBREAK01 SURNAME, Name (LT) MYBREAK01"

# which is basically 
gsub("\\s+", " ", s_) |> trimws()
#> [1] "MYLINEBREAK01 SURNAME, Name (LT) MYBREAK01"

rvest примечание: возможно, вам здесь нужен html_text() (sans-2), и подход к этой проблеме с помощью rvest с помощью комбинации селекторов CSS и/или XPath (и, возможно, некоторых xml2 трюков для некоторых крайних случаев), вероятно, упростит вашу задачу.