Displaying 1 result from an estimated 1 matches for "signal_words".
2013 Nov 06
1
Multiple String word replacements: Performance Issue
...nts<-list(string=x, pattern=rep_words_part3)
t3<-do.call(str_extract_all,arguments)
arguments<-list(string=x, pattern=rep_words_part4)
t4<-do.call(str_extract_all,arguments)
count=length(t1[[1]])+length(t2[[1]])+length(t3[[1]])+length(t4[[1]])
signal_words=c(t1[[1]],t2[[1]],t3[[1]],t4[[1]])
# Replacements
arguments<-list(pattern=rep_wordsA,replacement="[ticker]",x=y, ignore.case=TRUE)
y<-do.call(gsub, arguments)
arguments<-list(pattern=rep_wordB_part1,replacement="[ticker] "...