x <- "foo bar" 
res <- gsub(" ", "\\ ", x, fixed=TRUE)
cat(res, "\n")