testlist <- list(a = c(NA, NA, NA, NA, "obvpkpu", NA, "", NA, "hdcedyfckbjruuqqnlny",  "fxxd", "gymlvouociiorasr", "f", "dblydvttzikvykfudotn", "gwjuylmalpgbwsoyhbhb",  "cmcnvvqonnhdpqjncexa", "phfbzrubyrvmtgu", "hoffkoowvuxkicnfxtng",  NA, "wanjumveldghxsmgyrdf", NA, "idrzafvlbdzcqw"), b = c("bkhhmwjdpxy",  "ivtzbcw", "wkhrnzqppipinswobdjj", NA, NA, NA, "onxjjxnezvumiezfmfib",  "lnaiazrrlssdorscbyjs", "kxoojvcn", "vqhqlnjnlrzmtzggvk", NA,  NA, NA, "oliabrdhulhxlmrwqtiu", "usvqalgqdcs", NA, "xibiicdglfcdialnfunt",  NA, "dinrywgpnwibbecpfwth", "jnghsjovfgw", NA, NA, "jdzn", "muerhuvwxvbxglhvldee",  "xuznjebhgzmpqu", "mkoeh", "rwwofvzeodocwugglcju", "mdirbtoxmvwa",  "ytaewwqdrgayfzvolbqw", "snseec", "gh", "ir", "ywtf", NA, "iapwbuzvtouewcocyrzc",  "lpjoadrqhlmopgqsbpor", NA, "lmxucrarlhu", "tvcxbfkawbtez", "fbhjovbmtrezxmxtccu",  NA, "tptevuycpxztpfrrxrxy", "zizhhtdajs", NA, "tmyaoqjutccaqcprwdou",  NA, NA, "vfaupeuiijjcpnbnomkg", "chafepxjhscrknweeztj", "uhtqjnvdhpfwjyvhzonx",  NA, NA, NA, "gbpmdenxozdbznwlzvik", "kthggjbkckcmodaaepbe", "xgkjnjmyihfavsk",  "wzhxojvi"))
result <- do.call(jmotif::is_equal_str,testlist)
str(result)