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)), src = -767861348L) result <- do.call(gretel:::dijkstra_inf,testlist) str(result)