How to remove extra white space between words inside a character vector using R?

How to remove extra white space between words inside a character vector
using R?

Suppose I have a character vector like
"Hi, this is a good time to start working together.".
I just want to have
" Hi, this is a good time to start working together."
Only one whitespace between two words. How should I do this in R/Rstudio?