Rプログラミング - gregexprを使用して指定された文字列から次のコードを抽出するにはどうすればよいですか？

Question

以下の文字列がある場合、どのように電子メールアドレスを抽出できますか？ 私が抽出したい電子メールアドレス>は<により特異的に囲まれているが書いた次の

egstring = 'blah blah blah <taylor_swift@gmail.com> wrote: blah blah blah' 

は、私がこれまで試みられてきたものです。

"taylor_swift@gmail.com" 

私が得たもの：

pos = gregexpr('(?<=(\\<))([a-z0-9.]+\\@[a-z0-9.]+)(?=(\\>\\swrote\\:))',egstring,perl=TRUE)[[1]] 

は私が達成したい何が悪かったのかを把握できなかった

[1] -1 
attr(,"match.length") 
[1] -1 
attr(,"useBytes") 
[1] TRUE 
attr(,"capture.start") 

[1,] -1 -1 -1 
attr(,"capture.length") 

[1,] -1 -1 -1 
attr(,"capture.names") 
[1] "" "" "" 

。 ：GSUBを使う/

Answer 1

（）これは動作します：

gsub(".*<(.*)>.*", "\\1", egstring)