Loss of attributes with lapply (R)

Question

If I have a list with some attribute, and I apply a function to all elements of that list, the attribute gets removed.

#