testlist <- list(parent = c(-568676763L, -250049000L, 1237429200L, -645489399L,  1298265599L, 889924430L, -907775620L, -152022060L, 167852540L,  432477283L, -1983958174L, 1188064147L, 828412518L, 1807594548L,  -1574588264L, 352546080L, 77995038L, 1848672759L, -273393355L,  -2067478347L, 609885071L, 416334778L, -176991733L, 2009017211L,  1715968468L, 1998244710L, -836461486L, -396097780L, -1088185385L,  -211906072L, -773590200L, -1558264823L, 1700650460L, 2024293190L,  -857761356L, 1134608386L, -1017390666L, -1184194678L, 1318245361L,  -1315440106L, -187174036L, 2134291275L, 357367640L, -323003472L,  439641811L, -1627038227L, -1741627831L, -942121028L, -1353570258L,  -1998882403L, 662238740L, 928105553L, -2060835804L, 813765064L,  -1292955271L, -948947594L, -1017207733L, 958261601L, -1780517428L,  809049525L, 1665260179L, -1007985803L, -613618014L, -584836704L,  -2101482565L, -606856080L, -1282327069L, -900032210L, -1670135457L,  1579013177L, -1983718298L, -420149656L, -1292753779L, -968819078L,  -767861348L, -1778988495L, 1770819784L, -1453063886L, 668834061L,  -761301371L, -1852173736L, -636431700L, 1261390305L, 638784143L,  -1616685240L, 123304750L, 907295753L, -1280143803L, 1285594406L,  -1318071300L, -1642275388L, 804279503L, -1817503846L, 76728635L,  -1509604262L, -1210933501L), weight = c(4.16222053993285e+189,  -3.47187673951786e+104, -9.61683738769097e+161, 9.71804279585044e-239,  1.26190922298483e+215, 2.17299108064979e+107, 2.26895126666313e+150,  -8.40097381850818e+307, 1.13760189546125e+200, -2.04311773710004e-81,  -5.96231150102709e+47, -3.45018564135406e-87, 1.87350069967456e-225,  1.78742032507512e+27, 1.5457560660078e-223, 3.9114491893228e-103,  4.75074045149166e+44, 2.03194847659285e-141, -2.91324326516138e+212 ))
result <- do.call(ggraph:::circlePackLayout,testlist)
str(result)