R tolower() is adding strings from previous vector element in lapply

Question

I have noticed some odd behavior with R\'s base tolower() function when using it in lapply and I want to identify what I am doing wrong.

Here is the reproducible exam