Xóa nhiều không gian và dấu cách bằng cách sử dụng gsub

Question

Tôi làm cách nào để có thể xóa nhiều không gian và dấu cách bằng cách sử dụng chỉ 1 gsub? Tôi đã thực hiện chức năng này trim <- function(x) gsub(' {2,}',' ',gsub('^ *| *$','',x)), nhưng tôi đang cố gắng viết lại nó chỉ với 1 gsub.

Thực ra, tôi muốn nghiêng về cách đối sánh với nội dung nào đó dựa trên nội dung sau/trước nó bằng gsub. Trong ví dụ này tôi cần phải phù hợp với tất cả các không gian được preceeded bởi một không gian duy nhất, và thay thế chúng bằng cách ''

Answer 1

Sử dụng một lookbehind tích cực để xem nếu không gian hiện tại được trước bởi một không gian:

^ *|(?<=) | *$ 

Xem nó ở đây trong hành động: http://regex101.com/r/bJ1mU0