根据R中的逗号分割字符串

Question

我有以下内容:

s <- "abc, xyz, poi (cv, r2, 44, rghj), wer"

如何拆分它,最终结果是:

c("abc", "xyz", "poi (cv, r2, 44, rghj)", "wer")

基本上,strsplit每个逗号处的字符串,但在括号外.

Answer 1

尝试

strsplit(s, "\\([^)]+\\)(*SKIP)(*FAIL)|, ", perl = TRUE)[[1]]
#[1] "abc"                    "xyz" 
#[3] "poi (cv, r2, 44, rghj)" "wer"