testlist <- list(current_vars = c(-1.1334718892041e+250, -2.42582247706509e-299,  9355260309185502, -7.56095295972653e+221, -1.14479521122072e+65,  3.27135760046814e+257, -2.34871603345802e-127, 6.4226137552686e-258,  1.04117860100054e+305, -1.2468278048976e+300, 1.01407398137575e+291,  -2.06775693687496e-138, 1.41568850506283e-170, -2.24186782881978e+45,  6.9691116908124e-272, 1.88408925234246e-254, 1.271088508207e-108,  1.89047484427571e-291, -4.24547335961526e+64, -2.78711056496352e+221,  -5.9989334022004e+235, -Inf, 1.50861794047553e+92, 9.03859127047301e-85,  -1.15910158630109e+290, -1.00946495407375e-268, 2.5444525860129e-107,  5.20002948607394e+56, -7.501466604015e-209, -5.99791447141235e+150,  1.54377149773672e+43, -2.05014315416256e+147, 2.00737633849558e-38,  1.87595955300965e-34, -5.94478974396062e-220, -2.09909273818948e+155,  -1.5060747288887e+271, -2.36912015581608e-249, -8.52910662065418e-168,  -8.69594665641519e-78, 4.61876979392391e+303, NA, NaN, -6.99320810837854e+121,  -3.51615061607471e+278, 8.37188925022916e+197, 3438839461.68494,  -8.71029433832831e-245, -1.49992165615528e+57, -1.82400379691607e-79,  6.16535962848744e+153, -3.30561853626065e-115, -2.88172465130715e-304,  -3.34682711599178e-83, 1.11884366701059e-15, -2.88469311499116e+97,  Inf, -2.16024669344212e-264, 3.11299273071981e+249, -4.80579913167608e-203,  9.38733113988321e-173, -5.47381144415929e+262, -5.16953637657471e-13,  7.61862917367435e+28, 0.00738172003213325, 3.36741583544165e-28,  -5.6194379050153e-144, 7.30121093075748e+253, -1.99640444652711e+229,  -1.72523238302044e-233, 1.09422437740109e-69, -8.61462767160086e-292,  2.8016058690261e-151, 6.64057658428147e+202, -2.96414467592134e-297,  -1.4916717345341e+273, -4.37607986959916e+150, -2.82829293836215e-58,  2.89898996608793e-288, 2857396.60274627, -1.87289072338647e-140,  1.8446127874506e-131, 1.04514092398385e-178, 2.74682205570372e-82,  1.82706223126369e-122, -9.55155619507101e-168, 4.68997834793319e-151,  7.1315795021592e+249, -1.52177754199618e-148, 0), num_col = -902076188L,      split_vars = c(-1.72121110193461e+187, -2.28862232451326e-42,      -3.17527792159287e+212, 2.46667859116869e-86, 2.28393946356129e-55,      2.59435238785996e+241, -7.22582527675169e-217, NaN, -7.27981286484918e+99,      4.54275966796705e-241, Inf, -3.60970586076332e+55, 5.50503779583268e+287,      9.25655737728814e+260, 1.04605174696511e+288, -4.4694629616439e+285,      -3.80852836383004e+121, 4.03822529379671e+81, 2.24933085208246e-239,      -5.29460184341088e-202, -2.95649015643718e+65, -7.30542942853672e+59,      -1.54533096332541e+76, NA, 2.38120591739431e-167, -3.30714814111543e+68,      1.49612666398753e-304, 5.92763247244698e-300, 7.38635892888145e-168,      -1.50355849130314e+120, 7.79189537043807e-90, -7.86497255493703e+286,      4.51759444758205e+123, 1.34691502274029e-60, -1.87211214018436e-60,      3.63993254633641e-237, 5.72006140659017e-299, NaN, 1.63927996117561e+214,      8.41436942146831e-249, 3.0866943068786e+146, -34283630024724644,      8.02333399776015e-162, -9.81121896337603e+249, 1.65858972486813e+214,      6.44985967557696e+171, 2.53752375086282e+224, -5.20507372462404e+113,      8.43501701210618e-163, 1.50712886437367e-55, -5.28210217420807e-140,      -3.03975601780025e+168, 2.9051375558049e-216, 5.47527408382013e+116,      1.48608521537159e-263, -3.46513552921348e+276, -2.95274952442484e-90,      -6.38776478417907e+45, 5.07008292913763e+306, 0))
result <- do.call(bartBMA:::get_imp_vars,testlist)
str(result)