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)