testlist <- list(im = c(8.18711001407657e+299, 0.00468189194076409, 9.28697320897767e-257,  -4.47313953005781e+269, -1.08462202709686e-247, -1.06960341877259e+114,  -3.47955013064173e-216, -8.9518097672271e+215, 1.38348243341209e-136,  6.24605057871232e+181, -4.11367928127064e+80, NaN, 2.79007508688443e+291,  -2.43672528268817e+290, 1.13722118274863e+165, 1.24928798805976e+186,  -9.06013680652417e-190, 1.2437247084887e-163, 1.07356550066254e-51,  -6.72069897320444e-236, 3.93269171816182e-254, -3.45570679530885e+99,  8.95779391235146e+89, -1.04429299113846e+114, 2.77225047393114e+43,  -2.18557342377325e+139, -2.63807973264429e-55, -1.77673745822268e-44 ))
result <- do.call(imager::resize_doubleXY,testlist)
str(result)