R programming logic

Question

Below is a character vector in 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)}"

Need a logic to get the following:

ggstyle(inputFile)

Answer 1

Use gsub to match the substring that we want to delete and replace it with ''

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

Hope this helps!

To learn more, enroll with R programming for data science online.

Thanks.