Wie kann ich mit nur 1 gsub mehrere Leerzeichen und nachfolgende Leerzeichen entfernen? Ich habe diese Funktion schon gemachttrim <- function(x) gsub(' {2,}',' ',gsub('^ *| *$','',x)), aber ich versuche es mit nur 1 gsub umzuschreiben.

Eigentlich möchte ich lernen, wie man etwas basierend auf dem, was danach / davor ist, mit gsub zusammenbringt. In diesem Beispiel muss ich alle Leerzeichen abgleichen, denen ein einzelnes Leerzeichen vorausgeht, und sie durch '' ersetzen.