Remove rows in table that have rows with missing values

Question

How can I remove those rows in a table that have a missing element.

For a contrived example:

Table[{If[i == 1, Missing[NotApplicable], i], j}, {i, 1, 2}, {j, 1, 
   2}] // TableForm

Gives:

But I want is:

In the real example there is is more complex function that sometimes returns missing for some values, and I want those rows excluded.

Ideally, if the first element in the row is missing, the rest of the elements in the row would not be processed, but that is just a performance bonus.

How can I do this?

Answer 1

Try Cases.

tab = {{Missing[NotApplicable], 1},{2, 3},{4, 5}};
Cases[tab, Except[{___, Missing[___], ___}]]
(*{{2, 3}, {4, 5}}*)

The pattern Except[{___, Missing[___], ___}] matches anything that's not a list containing an element of head Missing.

Answer 2

Perhaps simply this

 t=Table[{If[i == 1, Missing[NotApplicable], i], j}, {i, 1, 2}, {j, 
 1, 2}]
 Drop[t, 1, None] // TableForm

Answer 3

expr = {{{{{Missing[NotApplicable]}}}, 1}, {2, 3}, {4, 5}};

For versions 10.0+, DeleteMissing[expr, 1, Infinity] gives the desired result as noted by MarcoB in the comments.

DeleteMissing[expr, 1, Infinity]

{{2, 3}, {4, 5}}

For earlier versions you can use

Select[expr, FreeQ[#, _Missing] &] (* or *)
DeleteCases[expr, _?(Not[FreeQ[#, _Missing]] &)]

{{2, 3}, {4, 5}}