testlist <- list(element = -19762091L, names = c("ousitdwd", "oizslhzuqjmkjrobpb",  NA, NA, "bembntmqrvkfwsnvyrcg", "sdzxocfrgx", NA))
result <- do.call(humaniformat:::get_,testlist)
str(result)