testlist <- list(id_1 = c(1961243419L, -655000698L, 72856112L, -1458421458L, -213417341L, -338561002L, -469854822L, -150085269L, -216758581L, 151146765L, 1493384450L, 360591369L, -978088784L, -2071672985L, -2091122310L, 1776477788L, -160684033L, 1853361607L, 2085276049L, -906323314L, -1390002383L, -1425631186L, 1654237388L, 2089691250L, -78613911L, -931188412L, -906307950L, -193977951L, -1755262398L, 1718251720L, 68719744L, -1480723806L, 224660437L, -482600275L, 938491691L, 1616956919L, -1063306970L, 178908942L, -1031565719L, 1082133325L, -451533880L, 1396536714L, 766883213L, 360875478L, 582941740L, 1760246314L, 1875415983L, 1218379053L, -1272908281L, 1567330698L, 541529910L, -912519957L, 1527257027L, -195957405L, 427823714L, 504336338L, 797301388L, -244640239L, -1305589892L, -900503771L, 1551886416L, -791301142L, 1438993523L, -707049980L, 1629524306L, -1951964354L, -710165856L, -31341222L, -1599165839L, -2091033639L, 598166776L, -2104296221L, -1299368642L, 899251210L, 1144433218L, 1466998264L, 507996577L, -1513850168L, 1808253165L, 1505546508L, 1241926271L, -1614378525L, -63691181L, -1530704958L, 179594159L), id_2 = c(-1470841528L, 440806166L, 2052155934L, 347463711L, 1782894306L, 575063751L, 2107098481L, 969977825L, 611068223L, -1286253267L, -1497412421L, 1965873887L, 1890107794L, -293119636L, 505404759L, -275957485L, -110996820L, -1213670818L, 1730550236L, 1391705027L, -1686284918L, 78640675L, -825001283L, 1622397018L), verbose = 371394253L) result <- do.call(dsmisc::graphs_find_subgraphs,testlist) str(result)