testlist <- list(population = c(-3.72986497545986e-51, NA, -6.71854383168617e-231,  -1.48732840565392e-301, 1.43409881946318e-277, -2.06332480355954e+50,  -9.32567939763287e+264, 3.72967311483599e+243, -1.54335785413067e-34,  -3.77051926996663e-173, 1.5367142226089e+33, -6.43306489248163e+78,  -425317726100048384, -2.66552619233836e+106, 1.23920219983153e-173,  1.15109800203994e-12, 8.58778745038117e+248, -3.9093868312017e-44,  4.18355848759987e+279, -4.5678636690851e+217, -2.27014607062024e-299,  -1.04279844912013e-174, -3.32819839767482e-199, 1.53366030630864e-161,  -2.24130863781702e+141, 1.2987918436879e+297, 1.26682934064491e-306,  3.75377928368824e+100, 1504664718056095, -Inf, -5.7294926743394e-171,  -4.87475768876878e+129, -3.93984773273514e-199, -6.3932371583124e+211,  -1.75829694944067e+63, 1.47870984910042e-243, -1.52360980582424e+251,  -2.1989720529302e-09, Inf, -21.2132745204514, 6.79123179106365e+79,  -1.89054598578475e+178, 1.71423933348632e-226, -1.72652778840381e+29,  3.05033394541735e-70, -1.11778078892974e+297, -7.63174873482382e-97,  -9.21106942713315e+60, 3.86517217584919e-198, 5.64819537701159e-91,  6.46284675344174e-136, -1.11019650844563e+177, -7.27160958215568e-81,  -2.78873051440147e-83, 5.0351963162616e-45, -1.07880007026725e-105,  1.95854475211877e+69, -3.64461205168532e-186, -3.24146504475453e-194,  2.42276600859657e-147, -1.33686195985754e+36, -6.12687053643201e-91,  -6.45583731495433e+240, -7.58959164055088e-301, -1.32796209267233e+48,  -7.08306941452101e-43, NA, -1.72076256831215e+212, 2.47943282751035e-130,  -1.17882367994558e+297, 1.42816341926127e+197, -3.08483555147434e-54,  5.15633963690329e+122, NaN, 0))
result <- do.call(humanleague:::integerise,testlist)
str(result)