testlist <- list(class_var = c("mzg", "nbsilul", "zmnlill", NA, "jkzktbg",  "rqclgizxmotxikntswwb", "jmljbgiwjenzzoeoolev", "idpvpfhzfxlfdrdzxekh",  "jo", NA, "qzaxioopcjjee", "tmtzwvwqglmyoznijqbs", "vponncurdqnbh",  NA, "safbzscmzowhzfsyfxer", "qrsywdifbeotxgpwvuem", NA, "lv",  NA, NA, NA, "axiiceupzrqegiy", "qxohmjwazoqghlzusgrj", NA, NA,  "dyfbhsphvdokwcrellhx", "lpbmliapcxocuhtjylmt", "ytotpnivdghucotglhcj",  "myomzfipwnitvzefsaxe", NA, NA, NA, "cmtrengqgsqxrhljqsmq", "uuzwfkh",  "rclbjpnbeksroiengcnv", "anlbhmvug", "chzrrqgbquptnugbtlvj",  "jjjfyqirfrrafyoyriix", NA, "iiguhuwxehhxaztzgaaa", "wibwgofgeyeygquyrhkl",  "hkwhcp", "d", "weqcrlwz", "ztefspkcaqdbyvvqbdvj", NA, "vvkrxvjnmicqxmybnota",  NA, NA, "xysdzvzjfyktbuuwitmk", "sxmprbszpnndzdmgfkpu", "mehyq",  "", "mbvsxoghyqvqadehtbvo", "yospvvjjxnc", "iwllbuoqu", "cc",  "dimkezoqdfnkwgniogub", "lxfoi", "mavsipzzqgagl", "svybnjkqpl",  "koggmklhzhkibv", "ishhslojbxovuuhhjtli", NA, "petdsnxxdleqqyfvcgrd",  "sghuzqkgdgpirtwxuwal", "zdfxvkmedubfzdafd", "mteodxqdsuljvistfgke",  NA, "xukwodzaaeipmybgcbfz", NA, NA, NA, NA, "biwsegjpgxddabqhbkqr",  "euolozdiuhpdzmxucedz", NA, "jjs", "ykadbznnebxtjvbmkewt"), columns_db = c("abgsyciwiflhwfizgbmh",  NA, "xvi", NA, NA, "leeklcnza", "eipghsuncw", "lhqytnavhhsprtnnhdzu",  NA, "acqxuxsxxvrljcponnur", NA, "gmxqoazloadtgqjqdbju", "lzytfwqaepk",  NA, "ckxprlmymvknnabohbuc", "risqwqiw", NA, NA, "jv", "auhvxdslkhwlhgwq",  "pktvpuqjhqzsrwsanlkg", "fcwyrrzbrvbicllvpbqh", "ys", NA, "ayntsftbuqhqbrgjeake",  NA, "vhyb", "xtopxvgqtjhzrxpapkag", "rqsvjbwmmwmwthoq", "dojxqpfrsvtbfexrmpxa",  "vykkbpssvjpjqvbgqcvh", NA, "thfcakpzmabmjqmpqqjf", NA, "pdaaiksgtnseayfwzxtp",  NA, NA, "kfavqqlljrmevsuflgme", "lgbinkiyeavxdkcejmxo", "fhsqrc",  "qvbyyqbivktqwl", NA, "ymsojwqcrihi", "ijpbzfefvqvtefndwhek",  NA, NA, NA, "kloshzcmzlsbbinhvrz", "d", NA, "aobtbokixooaqzzhns",  NA, NA, "lcxbkuereguyji", "gjneiagqalywhqn", "gfzdvpsuoovcflkutkwr",  "haqwyofcmnuml", "o", "e", "fumexnhmjpzmgeqearxp", NA, "mnq",  "vgzqrmydbqzowhfkcvtp", "mqzxpiorham", "xozqjrwk", "zxqzfmdguiycdsqwmyxq",  "binyhzyfefhwhefzlgor", "lfsesgnitfqmptawp", "bxxrlgwmrpsrodqnjcpd",  NA, NA, "vsxsilwwjnryyhukjalv", NA, "iuetedvhthyjdajtblpr", "dfiidwlhweubrbpcxbco",  NA, "awizlwiwqczrhwuovsol", "nucdovjlwavy", "tksfveyuomd"), cpt = c(8.18711001407657e+299,  0.00468189194076409, 9.28697320897767e-257, -4.47313953005781e+269,  -1.08462202709686e-247, -1.06960341877259e+114, -3.47955013064173e-216,  -8.9518097672271e+215, 1.38348243341209e-136, 6.24605057871232e+181,  -4.11367928127064e+80, NaN, 2.79007508688443e+291, -2.43672528268817e+290,  1.13722118274863e+165, 1.24928798805976e+186, -9.06013680652417e-190,  1.2437247084887e-163, 1.07356550066254e-51, -6.72069897320444e-236,  3.93269171816182e-254, -3.45570679530885e+99, 8.95779391235146e+89,  -1.04429299113846e+114, 2.77225047393114e+43, -2.18557342377325e+139,  -2.63807973264429e-55, -1.77673745822268e-44))
result <- do.call(bnclassify:::test_dims2columns,testlist)
str(result)