testlist <- list(freq = 4.70720205484016e+37, seed = -1715368536L, x = c(-3.05183428831023e+135, -1.01820460114081e+27, -1.52069636708949e+193, -1.65607832580298e+181, 2.01821639310491e-84, 1.63567767083056e-204, -1.70048961876226e-258, -1.87799575533408e+153, -Inf, 0.000121457562775682, -1.9969212522841e-143, 1.34071381250438e+157, 2.74437728500215e-72, -2.63547641540332e-188, -1.94577926049243e+157, -5.40651381107305e-153, 8.03732890384715e+157, -5.56130748075954e+175, -Inf, -6.69494673586697e-215, -7.00199697697361e+207, 3.35788105049596e-116, -25.5438906498729, 143067015.296842, -4.76749973608238e-17, -1.54430162950341e+148, -1.76274931393216e+174, -4.01315922338823e-165, 3.43774612027517e-250, -1.48671239212025e+242, 3.15693499610564e+303, -3.52935325545815e+31, 3.18104228256362e+55, 6.65106672238812e-10, -2.75347996524788e+134, 4.48629167847253e+93, 1.21184757419708e-291, -4.76749973608238e-17, 2.28129297521336e+294, 6.91223405149562e+132, -4.84454070529087e-110, -8.31920588443877e+181, 6.98196371602215e+274, 1.60746679844069e-254, 157730281795276096, -6.62046578039152e+246, 0), y = c(5.77811720059362e+127, -2.08158140588327e-48, -7.41371143005003e-254, 1.18079143534277e-89, -3.13431564730932e-105, NaN, 5.35156236165583e-235, -1.6064649805426e+245, 2.06280091408027e+183, -4.70734639910565e-129, 9.8326712321567e+211, -2.44314938537368e+56, 8.23422076626431e+83, 3.18192220562777e-120, -8.78311668001261e+160, 5.79319481536205e+213, NA, -2.55742823326805e-94, -1.80200672751057e-276, Inf, -2.01977267853193e+33, 4.6545852841801e+247, 7864689438618412, 4.12723670500736e+254, -3.58774583692012e-146, -2.94476662029023e-112, 1.83889666710748e-107, -5.14640409005161e-198, -8.44602781750237e+228, 1.67834309206028e-249, 1.06861497845874e-177, 9.17491671649758e+190, -3.3626991703977e-242, 7.55530237349136e-126, -7.83172009526073e+199, 1.5923495086578e-258, Inf, 4.83265106669133e+67, -4.14558737114952e+192, -3.8762407726262e+206, 0), z = c(49345526742390366208, -4.09707562878347e-261, 5.57833733261549e+255, NaN, -1.03013097767346e+59, -1.04530949786106e-62, 1.58643732280905e-130, 1.87180178433574e-168, 5.29207793023651e-241, 3.09434077072967e-94, 7.1069139177068e+60, 1.44464589067162e+133, 5.15134132822926e+71, -5.65637140000132e-40, -7.07841550774162e+295, -5.83004917329961e+69, -9.94686756846311e-45, -1.71150026209459e+104, 1.55722159484975e-83, -5.72546305458034e+147, 1.57324290419674e+145, 2.96606905775874e-205, 1.55598021516882e+256, -3.19313000415081e-49, -Inf, -3.24011808134562e-250, 3.68768192780878e+96, 1.63649267217445e-112, -2.08815895523197e-307, -2.16613387506536e+99, Inf, 2.94816401092911e+264, 1.01977901207636e+148, -1.88309973842886e-233, -Inf, -1.28716751683811e-141, 3.72307215127673e+119, 5.39329529930813e-231, Inf, -1.02272660241088e+107, 3.80726101505864e-236, -3.5629092352442e-129, 3.16289111007429e-129, 2.82892560682665e+186, -1.28803049410837e+295, 2.14287841026626e-10, 0)) result <- do.call(ambient:::gen_white3d_c,testlist) str(result)