testlist <- list(wkt = c(NA, NA, NA, "jyao", "ynqazuczqiqoaytbbtvz", NA,  "wqtfhausntkdhvcfguyb", "qwhkdtwfuylmoajapanj", NA, "izcahhmegzlxmgh",  "gcuntn", "mvgra", "hcqutlalrbxkyknhndta", "nzpgiljcofrpjluvwmsy",  "fuoytbzftbrhacyfebps", "tufcaeb", "", "zunpumqve", "ekxuvxoemyse",  NA, "rasyszx", "ipltiliojhhcgrozrewl", "dripxrhvptlsxclznfeb",  "ayvbclqxclfla", NA, "jyjzoprvpsmyigbud", "", "oiwqvebifxkdfbp",  NA, "aaxdgsuiixl", NA, "nqmzwklndmuuidygafqo", "iiiyhynvkemtxhctkwvf",  "yuk", "izktwbkmpvsmctyq", NA, NA, "auyhaokp", "lutvaouhzporbmxmdqpx",  "dfsbrpljahqrh", "pkkxdabrthhqcttzvqzr", "ttytbwkvvtqsczqvdkap",  "nhoxerkrgfehhdclstl", "idd", "nsusretliuxlkjplkmoi", NA, NA,  "palelgmxfzufwpakjzd", NA, "dspdvemthgkarpobofxm", NA, "tqvyzxtckiatpr",  "auledjydnqygooouksks", "gsqpznmtlsmljrwajkns", NA, "zospfbqlgxhrjkfbduef",  NA, NA, "dataviomxctsgt"))
result <- do.call(wkutils:::cpp_wkt_has_missing,testlist)
str(result)