testlist <- list(dist = structure(c(2.01768927817267e+47, 5.91095692082169e+64,  4.713762584588e-48, 1.7506159598139e-260, 4.13272931804741e+261,  7.50347923086546e-71, 1.28334006932209e+144, 2.90402077461892e-286,  3.56215199780015e-230, 1.43677827629537e-133, 7.46114516421967e-258,  5.0141334820982e+184, 1.58738722355198e-68, 29072.6257709098,  1.41003229091807e-86, 1.93643921836204e+180, 1.99326012973524e-62,  1.39815628510302e-16, 3.24863590772713e+70, 6.40667913683102e-255,  4.51598818063688e-206, 1.92056178044097e-182, 1.10965993656322e+192,  4.42315256788049e+80, 1.5466355094383e-118, 5.07881860810875e+283,  1.74132800058487e+63, 1.20446896806287e-16, 1.62053620455224e+203,  1.34759270653531e+170, 1.67897074343642e-132, 2.30932004979445e+295,  1.54458096127227e+60, 3.41101454752662e+171, 3.58419569978947e+261,  1.535318059725e+63), .Dim = c(9L, 4L)), node_costs = c(1.83256593058178e+116,  -4.42593797887469e+160, 3.21759483180466e+40, 3.48325048456177e-264,  1.12041057083754e-122, -Inf, -5.57063900296426e-183, 6.77668219319993e+126,  2.64895456424581e-139, 1.31811147361447e+39, 1.87979699345068e-221,  -6.70939165604135e-151, 5.48689750973174e+38, 1.31455194046167e-288,  7.17786009835887e-77, 3.11404119754965e+159, 2.25842022200925e+27,  -4.16598764013351e+69, 8.52222037375526e-255, -3.63793901562505e+124,  1.26698551129027e+289, -2.21209417801963e+287, -2.94685897421173e+143,  -3.85941897072093e+192, -3.19722805759127e+172, -1.0034474420466e+304,  NA, 1.07531427679841e+242, -9.29177057923572e+274, -1.70270940562957e-87,  -1.01234684237682e-219, Inf, 510923.287272302, 3.51941825928212e+166,  8.06437782716787e-68, -1.23725439378061e+278, -4.01622413535557e+183,  1.66633417502333e-279, -1.66036751626169e+30, -4.76889881443584e-91,  -1.86036624963322e+269, 1.63569764505322e+203, 8.06437782716787e-68,  -2.98404676523236e-201, 1.31120831873448e-197, -5.57968551902938e+116,  2.34826736750492e+206, 0), src = -767861348L)
result <- do.call(gretel:::dijkstra_nodes,testlist)
str(result)