testlist <- list(lats = c(-1.22673345239524e+88, 5.94486432035138e+167, NaN,  -4.052215600889e-278, -7.33541933881775e+178, -1.90147460056815e+217,  1.7044089118909e-233, -9.32994399645326e+113, -1.86024132392634e-271,  -1.55912671612885e-84, NaN, 9.65641222217367e-230, NA), length = c(-1533948636L,  -302457103L, 1534745833L, 1657021047L, 1306186440L, 1477466657L,  -152181770L, 331208888L, 1319558203L, -1631965959L, 881386134L,  1275334042L, -555785673L, -256091940L, -152181770L), longs = c(-2.19212650158203e+65,  Inf, -3.82686372984536e-25, -2.34325176457053e+256, -2.74315355791932e-300,  -1.76191821612169e+260, Inf, NaN, -7.24454875972993e+147, -9.01251946997299e-146,  1.78958183075365e+132, -1.40169891857035e-06, -3.17848612324867e+215,  -15525334.399746, -2.86597239395956e+138, 1.01381404743408e-156,  1.242013019857e-163, 6.32363431039979e+119, NaN, 1.4782492137094e-66,  7.62329101195639e-148, -8.87766647856384e+251, -8.25402665908265e-11,  3.90365540649548e+301, -3.36174342673851e+83, -1.14913858759931e-91,  1.70808016690352e-15, 1.25900133678105e-16, 4.37239950708663e-307,  -2.64947075243021e+160, -1.45488287515667e+236, -7.18709932436262e+32,  -8.42256949878146e+176, -8.1114889122475e-287, 5.23999333762778e-252,  -1.9518285805335e-100, -38647275050.7548, 3.31697242720157e-110,  1.42425222522068e+207, 8.56277206427704e+37, -3.1907111765855e+190,  1.24256617572995e+95, -3.59770463377672e+295, NaN))
result <- do.call(olctools::encode_olc,testlist)
str(result)