testlist <- list(new_counts = c(6.47599652406816e+188, -1.5600959424723e+246, -7.50585834614888e+284, -9.27444379465874e+240, 9.49004278472289e+222, -2.74091669569808e+256, -6.06628630504608e-44, -0.00101940368673233, 3.06107636871548e+238, 6.55275385389841e-240, -1.48399874396118e+47, 9.16904933188939e-35, -2.07467736400536e-284, 6.94131478577824e+164, -5.5967216936932e-168, -3.58047314657879e-10, 4.92682010218359e-88, -1.11188922097758e-72, 1.3976614997431e-176, -1.46673586226245e+64, 1.54710493323576e-298, 6.01409586841658e+221, 8.84504292234847e-195, 1.58469253118779e+132, -4.87411146232111e+199, -6.57814475580888e-121, -3.95540666931765e-64, -Inf, NaN, 2.76504354121682e-247, 1.73449647887861e-218, -7.99673422465593e+32, -2.65451953001246e-24, 2.90992270379842e-226, 1.59363195528273e-85, Inf, 3.57163680144006e+306, -708033289221.513, 2.70556548924223e-169, 1.94564217794711e-174, 2.16961927502633e-222, 2.86187280622422e+259, -1.70099699382665e-276, 5.99249482420488e+109, -6.87851197370956e+103, -4.04479138133641e+229, 1.15534477548193e+107, 5.71273754056285e-194, 2.01701324239408e+253, -3.11231333158067e-229, -Inf, -2.19771425923763e-185, 9.33597072267938e-293, 7.34305010414498e-165, -1.04191463999044e-193, 2.15177012013628e+165, -6.94313509841751e-208, 0), new_reads = c(1.27890654606226e-188, 7527485546020.59, -2.14488209182332e+105, Inf, -2.02048162434253e-44, NaN, 3.42032101584627e-93, 8.27932373953685e-269, -4.36408839884835e-38, Inf, 0)) result <- do.call(immunarch:::fill_reads,testlist) str(result)