testlist <- list(event = -314610825L, id = c(396357017L, 35699083L, -746517568L,  NA, -826615943L, 601092170L, -1169737284L), seq = c(NA, 425748608L,  1387266019L, -468158913L, -378901188L, 1767652355L, 1552051222L,  -1605504111L, 521878840L, 2074458318L, 1421390136L, -802719815L,  -1847200261L, 1093795486L, -1268075436L, -1196890409L, -1021112514L,  -926479332L, 2143180111L, -439613065L, -1308724493L, 812683748L,  -616220525L, -316773712L, 1098510089L, 1090201280L, -1183117409L,  1192761081L, 394849351L, -126014509L, -1033673040L, -2100272957L,  1229966730L, 1274235396L, 1851368373L, 1924771465L, 1100664890L,  402329050L, 1584696032L, 1156228238L, 980490373L, 1684179410L,  -1154644179L, -432622040L, -796499224L, -2123382048L, -481509336L,  -1172381219L, -707857095L, 813632491L, -1399645806L, -909133159L,  1444708823L, -1941719185L, -1887922234L, -598919502L, 455928651L,  -1409861801L, -1974408877L, 530902133L))
result <- do.call(simstudy:::clipVec,testlist)
str(result)