testlist <- list(lag = -1787316502L, x = c(5.4610484330631e+292, 3.573972460289e-294,  -5.6888925787827e+133, -1.34999210251611e+144, 3.41799615630717e-130,  -7.26975042508815e+209, 3.47448589643255e+170, -9.20449014812103e+301,  2.0278990837513e+41, -4.09266723603052e+20, 8.67042642210644e-199,  4.77548935764029e-129, 8.47325915206015e+190, -5.36761958742798e+29,  4.80482923454158e-240, 5.45910873771015e+70, NA, -1.07442371448062e+288,  3.62812243264935e-166, 6.14929813669804e-225, -1.89793961115352e-148,  5.10997141245119e-87, 4.75153085896205e-254, 1.0460280660327e+279,  -1.8603986192198e+300, 1.67714502428539e+262, -5.80145887861074e-170,  -2.99244141402646e+200, 1.23233809034533e+123, -1.83964938655947e+21,  8.80427240207645e-304, -2.57252392271326e+152, -3.58124263882623e-129,  -24055003580367.4, -1.38727010718735e+53, -3.75079328456961e+145,  -37481176731916.3, 6.80462941699385e-230, 3.90137177227285e+43,  -2.09244256547611e-156, 3.83324449283653e+45, 7.31832080763091e-121,  1.48331436688076e-242, 2.06088943733218e+33, -5.66845901159095e+108,  3.68179048345285e+159, 2.14970935331651e+293, -4.36617815166089e+87,  -15335114433.5054, 2.51059662168631e+125, 2.53450275866045e-114,  -1178329542704.91, 8.77442230175116e-293, -5.40707969005749e+114,  2.08898435813469e+240, 2.06051905547523e-94, 1.07904789607485e+68,  -1.90028486301583e-219, 5.25509137284905e+152, 4.84831195281422e-53,  -1.81527342315833e+28, NaN, 1.31948919479816e-304, -9.83043628423977e-269,  -7.46691959298363e+131, -7.26975042508815e+209, 1.38645888791601e-53,  -6.79706855824626e-221, Inf, -4.0521530037928e-155, -4.19793428430845e-48,  0))
result <- do.call(stocks::pdiffs,testlist)
str(result)