testlist <- list(im = c(-1.66667893622001e-49, 1.91698338082271e-80, 2.93871033907185e+294,  6.23890285463427e-80, 4.73594416852843e-68, 1.92374608756283e+304,  5.22278042553461e+77, -2.97932406633684e-194, -2.68155229469859e-130,  -2.8443541465211e-188, -1.37830165814193e-303, 9.46138801054663e+185,  3.43512439634007e-26, -2.80408356385423e+194, -2.69315621855967e-264,  8.88375296519136e+93, -1.28149993449481e+192, -1.05378635096144e+270,  9.9348541420566e-272, -4.49673024853768e-166, 1.08790490440457e-197,  -1.2041029401751e+269, 5.69436160505039e+304, -4.31279914103383e+297,  -8.50762375722852e-293, 8.10981151245745e+266, 5.79154874698599e-162,  -1.52841548347558e+202, 1.08404704783176e-287, 6.87024100783927e+274,  -5.68764856223117e-181, -1.13844874214302e-199, 1.96260971350789e-252,  5.33405194998669e-300, 2.59208973630206e-42, -9.97306573534695e-54,  -2.72162996958946e-171, -3.62546934961208e+168, -1.05877353233728e+151,  2.42723774121938e-180, 2.71379408558098e-129, -2.99574316180368e+172,  -3.92218442701392e+180, 3.87644683863415e+40, 2.87529519465824e-21,  2.1613714735693e-216, -1.24268282218984e+93, 1.1295944748571e-232,  3.92159577538232e-79, -15667.1775954664, 4.57084549186976e-49,  -1.25757101230842e+73, -8.79373529590978e+217, -9.77937136970318e+240,  -6.91902272399548e+224, -1.16799430317206e+232, -1.9654566928719e+138,  -2.97633622985238e-92, -2.12534603551549e-12, 3.06886759116986e+143,  -3.91468555641316e-243, -5.48275336426756e+103, 9.28985945620188e-15,  -3.80097643545023e-13, 4.66046102560888e-69))
result <- do.call(imager::sRGBtoLab,testlist)
str(result)