Modern reply, in case someone comes here looking or the same:

Filter(function(x)!all(!nzchar(x)),df)

based on this and this reply