testlist <- list(pos = structure(c(2.56296849590596e+44, 1.30825518916862e-226,  4.48513204298892e-43, 4.27654620051796e+299, 840306216403.093,  9.91471908360867e-16, 5.96663661725247e+307, 1.3226801246938e+244,  1.84186950714965e-61, 1.68849417434133e+155, 1.39293815797486e+293,  4.34987598757619e+41, 1.34154477602613e-217, 5.21963124711707e-132,  1.55801745794332e+52, 4.11118784948757e-273, 4.37075455987688e-216,  1.78274865024916e+29), .Dim = c(9L, 2L)), radii = c(1.44794270664499e+166,  3.55405928640254e-179, -6.71995498242736e+72, -9.01063342912815e+119,  NA, 2.78544802551236e+190, 2.92308208235412e-15, 2.7263371586526e-10,  7.97096431138374e-98, Inf, -6.1532478666605e+87, 5.21359902479674e+265,  1.85635320518682e+74, -2.778489248375e-112, NaN, 5.74864055380616e+284,  -7.20620748130022e+283, 1.24126450945856e+41, -5.95016007813758e-209,  -1.06274164148923e+67, 7.49787536135858e+219, -3.94624251452534e+62,  -1.82197761703467e-274, 1.34637092838598e+34, -2.74369009123676e+155,  -6.28924507634043e+155, -1.48120743298655e+60, 4.1421228226262e+89,  -9.34217816990319e+259, NaN, 1.36681474510519e+209, -1.7496156222106e+69,  8.93361297324814e+257, 2.54731516370661e-114, 4.39722767419805e-230,  -4.81109631195316e+152, 9.09005825462475e+187, -9.0149761801528e-147,  NA, -4907303226.35006, 1.22690014799797e-234, 3.22612046593903e-306,  -2.43806773513811e-21, 1.44196263819599e+103, 0), strength = -8.04083111357037e-197,      vel = structure(c(1.54834432823673e-112, 1.86387364987823e-230,      4.38495237742269e+238, 7.29025778721982e+209, 4.0051471905872e-185,      2.48335909987801e-62, 5.63100527894793e+164, 9.86898525360234e-294,      2.16712166385139e-193, 2.68621471821112e+207, 1.04699740189699e+175,      8.4335531292037e-177, 740262511.253564, 6.18065579885003e+155,      6.30883789164303e-124, 1.15822238146266e-15, 2.33696403954368e+89,      1.73989015338781e+254, 1.55262741581739e+25, 433063276504210,      1.37733349292087e+68, 8.1504638096129e-249, 3.3314946301947e+255,      2.32179918829295e+281, 2.35501830850366e-51, 1.91162093726942e-42,      8.10087804178752e+183, 1.31562179385199e+206, 7.93017242708563e+135,      1.50279675249263e+259, 1.14170915430914e-199, 5.52401954084749e+241,      9.61319226190809e-235, 1.49603692576471e+137, 3.84321259925393e-263,      8.04060052763937e-111, 5.48242632038901e+267, 2.14270860824473e-55,      7.32716024500789e+227, 1.47232727157809e-49, 1.03500569653763e-242,      3.41070562061466e+224, 3.14739480363082e+137, 1.43654166201507e-144,      3.96237236355854e+67, 9.42134333649677e+144, 4.27130698858971e-07,      7.73083053303404e-295), .Dim = c(8L, 6L)))
result <- do.call(particles:::collision,testlist)
str(result)