根据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"