testlist <- list(im = c(4.79212291154048e-250, 9.60637084360072e+283, NA, 7.5237852778943e-133, -2.04487411959785e-51, 10.9345067732263, 4.13144201556705e+182, -8.40393096897214e-124, -1.71931330848151e-91, -3.98832297126172e+298, -1.72121110193461e+187, Inf, -3.17527792159287e+212, 2.46667859116869e-86, 2.28393946356129e-55, 2.59435238785996e+241, -7.22582527675169e-217, 1.19332100706673e+132, -7.27981286484918e+99, 4.54275966796705e-241, 2.40253181968106e-278, -3.60970586076332e+55, 5.50503779583268e+287, 9.25655737728814e+260, 1.04605174696511e+288, -4.4694629616439e+285, -3.80852836383004e+121, 4.03822529379671e+81, 2.24933085208246e-239, -5.29460184341088e-202, -2.95649015643718e+65, -7.30542942853672e+59, -1.54533096332541e+76, 6.63715323843657e+22, 2.38120591739431e-167, -3.30714814111543e+68, 1.49612666398753e-304, 5.92763247244698e-300, 7.38635892888145e-168, -1.50355849130314e+120, 7.79189537043807e-90, -7.86497255493703e+286, 4.51759444758205e+123, 1.34691502274029e-60, -1.87211214018436e-60, 3.63993254633641e-237, 5.72006140659017e-299, 2.88948288135357e+251, 1.63927996117561e+214, 8.41436942146831e-249, 3.0866943068786e+146, 6.64200953013091e-211, 8.02333399776015e-162, -9.81121896337603e+249, 1.65858972486813e+214, 6.44985967557696e+171, 2.53752375086282e+224, -5.20507372462404e+113, NaN, 1.50712886437367e-55, -5.28210217420807e-140, -3.03975601780025e+168, 2.9051375558049e-216, 5.47527408382013e+116, 1.48608521537159e-263, -3.46513552921348e+276, -26787953951748456448, -Inf, 5.07008292913763e+306, -2.65910972012679e-237, 4.75701027696458e+290, -1.30987643422211e-205, 6128448941123941, -5.00992105764816e+172, 141.55125637396, 1.60464191672871e+160, -6.43816105057669e-168, 1.23487065227391e-251, -1.86166436697181e-136, 1.39483564155368e-252, 3.64565681897759e+301, -6.40193026482825e+177, 5.52539270460206e+159, 0)) result <- do.call(imager::resize_tripleXY,testlist) str(result)