Prevent empty data to enter an lm() call in R?

Question

I\'m trying to come up with a mechanism to prevent empty results in my lm() output. To be exact, I want to first find them and then prevent them from being ente