Using lapply with gsub to replace word in dataframe using another dataframe as 'dictionnary'

Question

I have a dataframe called data where I want to replace some word in specific columns A & B.
I have a second dataframe called dict that is playing the role of dictionnary/hash containing the words and the values to use for replacement.

I think it could be done with purrr’s map() but I want to use apply. It's for a package and I don't want to have to load another package.
The following code is not working but it's give you the idea. I'm stuck.

columns <- c("A", "B" ) 
data[columns] <- lapply(data[columns], function(x){x}) %>% lapply(dict, function(y){
         gsub(pattern = y[,2], replacement = y[,1], x)})

This is working for one word to change...but I'm not able to pass the list of changes conainted in the dictionnary.

data[columns] <- lapply(data[columns], gsub, pattern = "FLT1", replacement = "flt1")