R Regex/gsub：如何折叠字符串中的空格

我有一个从手写文件扫描的句子向量.在这个过程中有一些像这样的间距问题：

The d og is br own.

我很好奇是否有办法通常使用’_x_’或空格字符空间采用任何模式并折叠第二个空格,如下所示：

The d og is br own.  --> The dog is br own.

我只担心空格之间的单个字符(‘_x_’不’_xx_’).

有什么建议？

解决方法

也许

> x<-"The d og is br own."
> gsub(" (.) "," \\1",x)
[1] "The dog is br own."

要么

gsub(" ([[:alnum:]]) ",x)

(.)匹配任何东西([[：alnum：]])仅匹配字母数字字符.