Использовать N шаблонов в str_replace в R?

Question

Учитывая, что у меня есть N различные шаблоны, я хочу str_replace проверить каждый шаблон:

pat_list <- pattern1|pattern2| ......|patternN

str_replace(string, pattern = pat_list)

Например, вот мои шаблоны:

[1] "123-5"   "123-05"  "123-1"   "39-33"   "05"      "44-078"  "31-6"    "972-11"  "45-"     "33-7"    "49-17"   "20-12"   "123-"    "User_52" "44-79"   "33-6"   
[17] "44-75"   "358-4"   "43-699"  NA        "" 

Теперь, как мне"скажите" str_replace использовать список шаблонов?

Answer 1

Возможно, что вам нужно, это

patterns <- c("123-5", "123-05", "123-1")
str_replace_all("123123-50123-0533", paste(patterns, collapse = "|"), "")
# [1] "123033"