Remove empty elements in vector
RemoveEmpty(x)
x
vector to eliminate NA and blanks
RemoveEmpty( c("",NA,"","Remains") ) # [1] "Remains"