testlist <- list(L = -1184194678L, x = 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(dfphase1:::ggdepthranks,testlist)
str(result)