如何连接带有无效换行符的句子

Question

我有一个长字符，连续几个句子。

前：

"I have a
apple.
but I like banana."

这样排列不规则。有没有办法自动连接它？

结果：

"I have a apple.
but I like banana."

Answer 1

出于测试目的，我在输入中添加了几行。

x <- "I have a
apple.
but I like banana.
This is new text. 
and another one
to complete it."

#split the string on newline
tmp <- trimws(strsplit(x, '\n')[[1]])

#Create a grouping variable which increments every time the statement
#ends on ".", paste each group together. 
tapply(tmp, c(0, head(cumsum(grepl('\\.$', tmp)), -1)), function(x) paste0(x, collapse = ' ')) |>
  #Collapse data in one string
  paste0(collapse = '\n') |>
  #For printing purpose. 
  cat()

#I have a apple.
#but I like banana.
#This is new text. 
#and another one to complete it.