Conditional line break in space

Question

My input vector

'salesman snow "rain check" "Radio shack"' 

The answer I'm looking for

 "salesman" "snow" "rain check" "Radio shack" 

tried to

  strsplit(vector, " ") 

Answer 1

Like this?

 > gsub('"', '', regmatches(vector, gregexpr('"[^\\"]*"|(\\S+)', vector))[[1]]) [1] "salesman" "snow" "rain check" "Radio shack"