R - 文字列操作と抽出

Question

私は文字ベクトルとして保存したい文字列strEx <- "list(A, B, C, D)"を持っている：

[1] "A" "B" "C" "D" 

私は（だけでなくやり過ぎかもしれない正規表現では非常に良好ではないんだけど、私がします将来的にはそれ以上のものが必要です）、これはおそらく私の問題の一部です。あまりにも多くのコード/悪いフォームであると感じる解決策があります。

私は最後に何が欲しいのですが、コンマで分割して平坦化する必要があります。私はこれがあまりにも粗すぎると感じています。誰もがよりきれいな解決策を持っていますか？

d <- gsub(".*\\((.*)\\).*", "\\1", strEx) 
d1 <- unlist(tstrsplit(d, ", ", type.convert = TRUE, fixed = TRUE)) 

Answer 1

あなたは、このように式を解析できます。

#parse the expression 
pEx <- parse(text = strEx)[[1]] 

式は、実際のシンボルのリストであり、そのように扱うことができます。ここでは、文字にlist以外のすべてを回す：あなたは（あなたも正規表現を使用したソリューションとして提案するものである）文字列を解析する必要がある場合

vapply(pEx[-1], as.character, FUN.VALUE = "") 
#[1] "A" "B" "C" "D" 

はしかし、いくつかの前のステップは、通常は改善されるべきです。解析する必要がある式を持つべきではありません。

はこれを参照してください：

library(fortunes) 
fortune(106) 
#If the answer is parse() you should usually rethink the question. 
# -- Thomas Lumley 
#  R-help (February 2005) 

Answer 2

あなたは、すべての文字に引用符を追加し、eval(parse(...))で試すことができます。

unlist(eval(parse(text=gsub("([A-Z])", "\"\\1\"", "list(A, B, C, D)")))) 
#[1] "A" "B" "C" "D" 

あなたが最初の文字列にカンマがいない場合は、カンマを追加し、別のsubステップと最後の1を削除することができます：

unlist(eval(parse(text=sub(",(?=[)])", "", gsub("([A-Z])", "\"\\1\",", "list(A B C D)"), perl=TRUE)))) 
# [1] "A" "B" "C" "D" 

Answer 3

2段階アプローチは非常に優れており、読みやすいです。

が

> g <- unlist(regmatches(strEx, gregexpr("(?:list\\(\\s*|(?!^)\\G(?:,\\s*)?)\\K[^,)]+", strEx, perl=TRUE))) 
> g 
[1] "A" "B" "C" "D" 

パターンが詳細：

あなたがしようと1のテキスト のブロック内グラブアイテムに行きたい場合は、ベース・R機能を使用して \Gと \K事業者とPCRE正規表現を使用することができます

• (?:list\\(\\s*|(?!^)\\G(?:,\\s*)?)からlist(と0+空白のストリング（list\\(\\s*部分を参照）、または前成功したマッチの端（(?!^)\\Gを参照）、,とZERの任意配列以上のO空白（(?:,\\s*)?参照）
• \\Kから,と)以外の1またはそれ以上の文字 - これまで
• [^,)]+に一致したテキストを省略する。

regex demo onlineを参照してください。