testlist <- list(names = c("rnutgiygrthbsgiiawwy", "fxkbjwgzachcpzejqaja",  "kjwouttsfdjkhtjcymeu", "evjwknuiwwqxmpjqwdfm", "qkaxmnnw", "pegfbmpozjowzrhrzspw",  NA, "vapcwcrc", NA, "gwjmhsxpvpldvesgunq", NA, "gnotrlmnnfydcibfyu",  "tkmxceq", "sphibtrcvzxuhmfehviv", "padkbf", "kyuwb", "ejntamorvbt",  NA, NA, "uzv", "ikaax", "cbttmuujlkppldltxxkz", "egoczbeztjwmgc",  "pytiz", "lpskkkfnlapzxabhwczb", "wprkkkptrknmtojmgfol", "",  NA, "sj", NA, "azyu", "ohjnxonmzrwsbamndtiq", "lgk", NA, "ngpafwxtawcrmbqvwr",  "", NA, NA, NA, "byzprgrfmtuicdiwbkyw", "vjnrkwdoqelmtdcxveha",  NA, "zwdhzgljlnqoyyyoszfw", NA, "mhhntixytmblskqdjyxd", NA, NA,  NA, "ogibegedjndv", "zzwxhkahfdbidjj", NA, NA, "efntprxovmbvkgutdaqx",  "sdhoph", NA, "oyogsfptqkczdeuwstnk", NA, "tyg", "xcgukjmqkfitbaejaluh",  "bvpostuvetyqwgtsmpny", "rfixujlkljcllaocsnna", NA, "ecuamusozotwiqw",  NA, NA, "u", "qg", "jfoiiwtrxhzfrozjqwe", "w", NA, "idaxqbrekxao",  NA, "syjztgvsqfnsmlpqwnjp", NA, "cufrpfpmbshv", NA, NA, "iuqtu" ))
result <- do.call(humaniformat::parse_names,testlist)
str(result)