x <- c("Total Assets in th USD", "Equity in mil EUR", "Number of Branches")
currencies <- c("USD", "EUR", "GBP")
regex <- paste0("\\b(",
paste(currencies, collapse = "|"),
")\\b")
# results in
# "\b(USD|EUR|GBP)\b"
matches <- regmatches(x, gregexpr(regex, x))
res <- lapply(matches, function(x) if (length(x) == 0) NA else x)
res[is.na(res)] <- ""
unlist(res)
eCA8LSBjKCJUb3RhbCBBc3NldHMgaW4gdGggVVNEIiwgIkVxdWl0eSBpbiBtaWwgRVVSIiwgIk51bWJlciBvZiBCcmFuY2hlcyIpCmN1cnJlbmNpZXMgPC0gYygiVVNEIiwgIkVVUiIsICJHQlAiKQoKcmVnZXggPC0gcGFzdGUwKCJcXGIoIiwKICAgICAgICAgICAgICAgICAgICBwYXN0ZShjdXJyZW5jaWVzLCBjb2xsYXBzZSA9ICJ8IiksCiAgICAgICAgICAgICAgICAiKVxcYiIpCiMgcmVzdWx0cyBpbgojICJcYihVU0R8RVVSfEdCUClcYiIKCm1hdGNoZXMgPC0gcmVnbWF0Y2hlcyh4LCBncmVnZXhwcihyZWdleCwgeCkpCnJlcyA8LSBsYXBwbHkobWF0Y2hlcywgZnVuY3Rpb24oeCkgaWYgKGxlbmd0aCh4KSA9PSAwKSBOQSBlbHNlIHgpCnJlc1tpcy5uYShyZXMpXSA8LSAiIgp1bmxpc3QocmVzKQ==