Использование Inline C # в файле Javascript в MVC Framework

Мы могли бы сначала подмножить «text.df», используя «indx» (сформированный из свертывания вектора стран) как шаблон в «grep», а затем использовать «str_extract», чтобы получить элементы шаблона из столбца «текст» присвойте этому столбцу «текст» набора данных подмножества («text.df1»)

library(stringr)
indx <- paste(countries, collapse="|")
text.df1 <- text.df[grep(indx, text.df$text),]
text.df1$text <- str_extract(text.df1$text, indx)
text.df1
#  ID          text
#1  1 United States
#4  4        Israel
#5  5        Canada

2. base R

Без использования каких-либо внешних пакетов мы можем удалить символы, отличные от символов, найденных в 'ind'

text.df1$text <- unlist(regmatches(text.df1$text, 
                           gregexpr(indx, text.df1$text)))

3. stringi

Мы могли бы также использовать более быструю stri_extract из stringi

library(stringi)
na.omit(within(text.df, text1<- stri_extract(text, regex=indx)))[-2]
#  ID         text1
#1  1 United States
#4  4        Israel
#5  5        Canada