条件性地在空间分割字符串

Question

我的输入向量是

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

我正在寻找的答案是

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

尝试

  strsplit(vector, " ")

Answer 1

喜欢这个？

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