testlist <- list(alpha = 1.43424437246549e-08, max_dist = 2.62876900948434e-43,      min_dist = 7.67457848107031e-134, pos = structure(c(4.93990019912105e-131,      5.22139134902691e+186, 1.29472658105388e-292, 2.66089064536123e-116,      1.17933071578569e-95, 5.93963837328598e+297, 1.83285303951608e-242,      2.88920039311292e-183, 3.79944638664667e+269, 1.14611772077033e+58,      5.87653053017652e+161, 5.23164275358309e-233, 4.07627361279469e-52,      1.21531650579033e+145, 5.56126190068248e+181, 4.90179894934123e-110,      2.48835498310162e-226, 1.20661670382834e-194, 8.14039977794424e-255,      4.69258076775093e-148, 9.69612096037389e+113, 9.03936882777608e+80,      1.74504989202878e-242, 5.07671626106077e+234, 1.42111927480397e+90,      5.09514287789035e+118, 1.1449867685931e-147, 1.36847226744208e-251,      4.41608673059407e-73, 5.13782728315169e+67, 3.89092887115981e+212,      1.60997447919864e+124, 1.91087610396277e-144, 9.43655504265179e-242,      2.07988069826159e+233, 3.90956432705567e+23, 1.81100292190027e+287,      9.14074443425362e+23, 3.80393534920239e-248, 6.37286154268523e+97,      4.5112214601799e-118, 5.68993465672331e-166), .Dim = 7:6),      strength = c(1.40161449963068e+212, -1.04660542208047e-31,      NA, Inf, -Inf, -8.3786398319972e+262, -Inf, -6.12625784502288e-36,      6.90964195521998e-105, -9.10505553225551e+223, 5.78330068845275e+100,      -9.96262760758512e-240, -Inf, 1.59336886357981e+80, -9.29741682586773e+95,      4.07805189463645e+30, 0), theta = 3.23195579844244e-181)
result <- do.call(particles:::nbody,testlist)
str(result)