Regex 正则表达式R编程

我对R编程非常陌生，我的问题看起来很傻

下面是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)}"

---

longString我们可以使用
gsub
来匹配要删除的子字符串，并将其替换为
'

或者将字符串捕获为一个组，并将其替换为反向引用

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

我预期的o/p是ggstyle（输入文件）哇：）非常感谢
sub("^([[:alpha:]]+)[[:punct:]]+[[:alpha:]]+([^)]+\\)).*", "\\1\\2", longString)
#[1] "ggstyle(inputFile)"