testlist <- list(w = c(2.1448956777713e+68, -1.07176860527758e+73, -1.31262095206347e+159,  -3.45922728933102e+183, 1.18855634202905e+238, Inf, 1.72916977149083e+284,  2.2414024256039e-11, -1.79851154002239e+230, -1.03621094161888e-157,  -Inf, 4.88093945877989e-88, -16603.0606367838, -1.33714711129092e+186,  1.63813713138853e+308, 1.17841559550209e-29, 6.99658848063075e+50,  1.40772164369179e-139, -6.59797524444024e-80, 2.19127093467372e+203,  9.13751501980478e+123, -3.06540242916652e+87, 6.80864919406099e+102,  -1.87809183903434e+124, 5.81405634893366e-303, -2.75368351186831e+228,  NA, -1.02818882161165e+253, 5.30722348924475e+182, 2.5568760063725e+212,  -9.09240250434776e+189, -1.19647086766445e+118, -2.5401036172691e+215,  6.31156468961817e+162, -1.47096887795217e+279, 2.31819971185685e-240,  -1.88476110784867e+170, -5.09651914941449e+283, -1.37719101603606e+20,  -5.14440888479236e-127, -1.21381611905554e-238, 3.36544692349457e-251,  3.90458048636831e-276, 9.12233411559268e+91, -1.23660983577855e+212,  -1.44233412889263e+130, 2.35496207486422e+89, -2.03705513305199e+279,  -1.95538405827612e-130, -3.45922728933102e+183, -2.71819097300945e+156,  -4.92005874366365e-188, 1.41841951488103e-186, 0), x = c(1.73520035310107e+194,  3.61043959097558e-35, NA, NaN, -2.3389977299617e+78, -6.41370906209542e-257,  -5.64826315285948e-300, -8.3655513219582e-80, 1.00461288523547e+145,  NA, -3.06513741622852e+79, 3.65659432097728e-106, 2.92681615043301e-138,  6.24822214720574e-210, 9.00120340055075e-291, 7.40915353259668e-116,  6.16252403487155e+117, 5.19188602353284e+148, 1.19350947959249e-297,  -1.36758536074652e+159, -1.92699078304228e-301, -9.24143297812861e+260,  1.21633548745035e+107, 4177494137.18873, Inf, 0))
result <- do.call(propr:::wtvRcpp,testlist)
str(result)