testlist <- list(howMany = c(3.11766545206543e-126, -1.19701319142902e-137,  2.95116751605132e+279, -3.73379591487342e-70, Inf, -1.85161644954412e+290,  -3.23720774728389e-308, -1.3485238903537e+122, NaN, 6.26373335504106,  -9.96287210231791e-111, -8.23755216048711e+198, -9.01896132453219e-271,  7.90107437849377e-59, -7.51099451765329e-234, -9.32148991810111e-62,  2.6629741047074e-21, 2.85695391760371e-49, 5.99249482420488e+109,  -1.30849503516874e-253, -1.07332665856543e-20, 0), origin = c(2.14791550485654e-37,  1.00923175658998e+150, -2.10253455513737e+301, 4.60655313093123e+48,  4.45025739364992e-24, 1905831175862415616, -4.24328078067767e-178,  -1.18179705084265e+60, 1.39605125438061e-232, 5.99781653866455e+279,  -3.09312947974544e-292, -5.95910562608586e+123, -8.81074923796508e+220,  2.98751496610519e-128, -4.14202793687734e+177, 1.16556331462481e-185,  NA, -10979345.9840459, -1.81481238743869e+239, 1.91904184414346e+115,  11596.7442332171, 8.39713329133356e-79, -2.01497906900428e+245,  -1.10097218493223e+43, -1.64586293424346e-294, Inf, Inf, NaN,  8.14517464734596e-29, -1.38685790052267e-28, -5.5596433982516e+86,  0), verts = structure(c(1.55275352858005e+40, 1.26561585488916e-12,  7.78977468933701e+159, 5.68506606287001e+80, 2.19993177182304e-285,  1.71989700163021e-51, 4.07917496173353e+165, 11.4126620730419,  5.71161975194342e+62, 392547523747806, 4.49652815404873e+83,  8.29783096275115e+300, 1.44694460535527e-22, 5.24923537909702e+272,  4599873890604020224, 1.51667032522555e-225, 6.61248672625989e-257,  2.62736251134913e-264, 8.62422196953177e-89, 1.01362548601491e+74,  2.14828588283137e+78, 1.56355569872783e-81, 1.87144928514855e+289,  4.33713900917097e-104, 8.95061606531969e-07, 1.86530911350654e+250,  1.02817515733494e-81, 1.83373691827773e-104, 9.93170256377077e-171,  1088.07751695644, 8.8807736008108e+282, 5.10577627940228e-14,  9.71140106453329e-241, 7.70718615662346e-71, 1.4974142352784e+196,  1.44529238258315e+91, 4.09428352962162e+146, 8.78820712548496e+143,  1.60645519355506e-158, 2.54096333611907e-21, 2.36295222737535e+123,  1.93464690535798e-43, 0.00892625105931129, 1.30327416034052e+122,  4.33867249973442e+27, 2.84158667488131e-210, 8.31361895544021e+90,  1.42291464098701, 1.53509611278053e-99, 7529893207808.94, 3.7744473255508e+64,  14780.2132338567, 4.33814752091689e+110, 8.53985998453361e-281 ), .Dim = c(6L, 9L)))
result <- do.call(icosa:::EdgesFromPoints_,testlist)
str(result)