正規表現Rプログラミング

Question

私はRプログラミングには非常に新しいので、私の質問はばかげているようです。

以下

は私のアプローチは、最初のよう

<-function前に、すべてをつかむことだった私は

ggstyle(inputFile)

をつかむようなロジックが必要R.

の文字ベクトル

longString <- "ggstyle<-function(inputFile {tableMedian=inputFile#plotstyleroutine#thislinesolvestheproblemifthemedianofevennumberofdaysistakenbytakingthevectornumberdayMedVec=round(length(unique(tableMedian$day))/2,0)dayMed=as.numeric(unique(tableMedian$day)[dayMedVec])x=tableMedian[tableMedian$day==dayMed,]p=ggplot(x,aes(x=AGE,y=SCORES))+geom_bar(stat=\"identity\",alpha=1)print(p)}" 

ですベクター

とfunction()との間のすべてを第2のベクトルとして

と組み合わせて組み合わせます。 しかし、そのどれもが:(

任意の提案を働いていますか？ も私のアプローチは間違っているかもしれない:(

Answer 1

我々は''

で、我々はそれを削除し、交換したい部分文字列に一致する gsubを使用しますか

gsub("[[:punct:]]+function|\\{.*", "", longString) 
#[1] "ggstyle(inputFile)" 

やグループなどの文字列をキャプチャし、後方参照

sub("^([[:alpha:]]+)[[:punct:]]+[[:alpha:]]+([^)]+\\)).*", "\\1\\2", longString) 
#[1] "ggstyle(inputFile)"