testlist <- list(ances = c(251032061L, -432234885L, 694534232L, -1797834179L,  -1920819362L, -219700354L, -1934080093L, 389467182L, 155384559L,  2123983783L, -30670958L, 37408655L, -1133580882L, 1435512033L,  1232307256L, -2041170544L, -1741717737L, -924139834L, 381573144L,  -131553100L, -1768594708L, 646958447L, 38971273L, -1461970624L,  194533332L, -2095670631L, -722226740L, 458850481L, -270361323L,  1902871668L, -1121190555L, 118924562L, -1359092175L, 327273191L,  1954329487L, -718061372L, 366926215L, 1230895878L, -1996985457L,  235971260L, 227077664L, 163055485L, 884608010L, -313668093L,  732465780L, 92633742L, 2112167307L, -172013821L, 1211442001L,  -299118814L, -438620973L, NA, -1553938520L, -448711070L, 643099932L,  322183003L, 1782754648L, 1836874323L, 1470572160L, -1560489147L,  1553722689L, -601578749L, 2022711179L, -1002510546L, -2137749778L,  268517735L, -1469585590L, 1673236415L, 1450967090L, -1599916776L,  861185271L, -1836374509L, 531366191L, -1388145067L, -1451319540L,  959368079L, -1412710069L, 1861706913L, 1258854622L, -1816202830L,  1811079448L, 880242397L))
result <- do.call(phylobase:::nTipsSafe,testlist)
str(result)