Use the lm-function in R with foreach for every value in a list

Question

I have a list with the values called out which looks like this:

["test ~ x1", "test ~ x2" "test ~ x3" "test ~ x4"]