R Regex / gsub :Как свернуть пробелы в строке

У меня есть вектор предложений, отсканированных из рукописных документов. В процессе возникли некоторые проблемы с интервалами, подобные этой:

 The d og is br own.

Мне было любопытно, есть ли способ вообще взять любой шаблон с '_x_'или пробелом -символом -пробелом и свернуть второй пробел, как этот:

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

Меня беспокоит только один символ между пробелами('_x_'НЕ'_xx_').

Какие-либо предложения?