Rのサブセットを逆セットするR

Question

Rのサブセットコードを元に戻そうとしています。以下に私のコードの例を示します。カンマ以外の20文字を返す代わりに、カンマの前に20文字を返したいと思います。前もって感謝します。

substr(test,gregexpr(pattern =',',test),20) 

Answer 1

# Sample "text" 
text = "asdasdasdasd,asdasdasdasdasd" 
index = gregexpr(pattern =',',text)[[1]] 
substr(text,(index-20), index) 

> substr(text,(index-20), index) 
[1] "asdasdasdasd," 

substrから20未満の文字がある場合 "" 初めまでアップ戻ります。

> substr(text,(index-5), index) 
[1] "sdasd,"