added sum_na()

so sum with na.rm=T, but if all NAs return NA and not 0. cleared all warnings