r - Removing a group of words from a character vector

Question

Let's say that I have a character vector of random names. I also have another character vector with a number of car makes and I want to remove any occurrence of a car incident in the original vector.

So given the vectors:

dat = c("Tonyhonda","DaveFord","Alextoyota")
car = c("Honda","Ford","Toyota","honda","ford","toyota")

I want to end up with something like below:

dat = c("Tony","Dave","Alex")

How can I remove part of a string in R?

Answer 1

gsub(x = dat, pattern = paste(car, collapse = "|"), replacement = "")
[1] "Tony" "Dave" "Alex"