testlist <- list(breaks = -1327588367L, center = c(-2.07467736400536e-284, 6.94131478577824e+164, -5.5967216936932e-168, -3.58047314657879e-10, 4.92682010218359e-88, -1.11188922097758e-72, 1.3976614997431e-176, -1.46673586226245e+64, 1.54710493323576e-298, 6.01409586841658e+221, 8.84504292234847e-195, 1.58469253118779e+132, -4.87411146232111e+199, -6.57814475580888e-121, -3.95540666931765e-64, -6.06987427478822e-92, 1.99297925143313e+185, 2.76504354121682e-247, 1.73449647887861e-218, -7.99673422465593e+32, -2.65451953001246e-24, 2.90992270379842e-226, 1.59363195528273e-85, -9.6058602592391e-14, 1.94017041189738e+245, -708033289221.513, 2.70556548924223e-169, 1.94564217794711e-174, 2.16961927502633e-222, 2.86187280622422e+259, -1.70099699382665e-276, 5.99249482420488e+109, -6.87851197370956e+103, -4.04479138133641e+229, 1.15534477548193e+107, 5.71273754056285e-194, 2.01701324239408e+253, -3.11231333158067e-229, -1.34477648935595e-162, -2.19771425923763e-185, 9.33597072267938e-293, 7.34305010414498e-165, -1.04191463999044e-193, 2.15177012013628e+165, -6.94313509841751e-208, -3.01900101394729e-156, -4.27377669195109e+148, 1.23323170463171e+130, 1.48547204511751e-143, -1.04310153114843e-116, 8.16764382473557e-111, -2.09545294904392e-22, -5.70400762505135e-238, -2.07081855709675e-80, 8.5455382271307e+192, 3.13880924774272e-45, -1.31829639664378e-67, -3.88007310706922e+111, -2.73349784924818e-273, 3.74346808450414e+144, -1.11691051946455e+197, 8.24572025426636e-140, -3143310072.61663, -2.7154489829733e+175, -8.99302500161768e+140, 1.38164596936339e+132, 1.0427490088369e-173, 1.33396984348503e-166, -3.22048262438252e-233, -899109387869.941, -5.80325779441735e+65, -3.02866560953896e+104, -0.00296575175622221, -9.06850566920262e+282, 4.63877483327205e+62, -5.6240952560463e-74, -1.4458869385411e-68, 0.0071543511529997, -1.70060342788749e-43 ), origSubF = structure(c(4.19789971189326e+140, -Inf, Inf, 2.00395981105832e-158, 2.91600903681303e+272, Inf, NA, NaN), .Dim = c(1L, 8L)), origV = structure(c(NA, -Inf, -Inf, NA, -Inf, 1.55275352858005e+40), .Dim = c(1L, 6L))) result <- do.call(icosa:::ExpandEdgesByFacesTri_,testlist) str(result)