Как я могу удалить несколько пробелов и конечные пробелы, используя только 1 gsub? Я уже сделал эту функциюtrim <- function(x) gsub(' {2,}',' ',gsub('^ *| *$','',x)), но я пытаюсь переписать его только с 1 gsub.

На самом деле, я хочу узнать, как сопоставить что-либо, основываясь на том, что после / перед этим с gsub. В этом примере мне нужно сопоставить все пробелы, которым предшествует один пробел, и заменить их на ''