testlist <- list(im = c(4.24195415756373e+22, -1.3484668303288e-218, 8.07634259695606e-201,  9.96356289148442e-247, 2.90006540622778e+287, -3.62253220237966e+84,  -0.00016852503890871, -5.51903795077038e-05, -2.04972055854821e+224,  2.91998178219736e-47, 4.09707721003032e+206, -1.08136198436748e+108,  -0.0456404306303113, 7.86531961485621e-108, 1.77775555112607e+279,  1.92512546208025e-122, -1.74847823197689e+192, -8.62176304742102e+250,  1.6260684855955e+96, 1.56395602788288e+138, 1.86510843342709e-245,  -1.6578235520724e-126, 8.31920255513824e+76, 1.21214794644861e-73,  -1.82852408321013e+183, 4.29485968908016e-206, 4.54964027613698e+119,  -1.51652249314335e+167, -3.75004888626212e-129, 3.69390615123829e+234,  5.50122451930252e+234, -5.85649931437095e+106, 2.33603150842745e+187,  -2.61014782890184e-89, 5.39802665415686e+140, 4.34952641997584e-92,  4.43042828616646e-127, 3.44019924376599e-175, 5.97911312413231e+292,  -2.91472249704818e-218, -1.65068658328465e-137, -2.23942978672215e+46,  8.11011748043062e+134, -1.03257662527594e+153, 1.07152618122477e+139,  -1.32829145719433e+231, 4.88048830900701e-239, -5.26071435728122e+264,  -5.76397108542496e-280, -9.94650562032047e+188, -1.49918877353769e+56,  1.81312413287634e-164, 7.26431178286288e+160, 3.97887764037891e-75,  -3.63104284120958e+53, 1.311014330822e+226, -8.01925069391582e-77 ))
result <- do.call(imager::YCbCrtoRGB,testlist)
str(result)