How to globally convert NaN to NA in dataframe?

x[] <- lapply(...) says "set the values in x to the values in the list
on the RHS", so x retains its class.