testlist <- list(lats = c(NaN, 192418175.530327, 7.28381656298568e+269, -6.74489298059859e+292, -2.35911823046751e-75, -3.21060924988409e-217, -2.3221578160773e-236, 3.66680360378144e+53, -1.66174340479337e-79, -4.31192978005878e+73, -7.62167885953238e+262, -Inf, -4.91646784059249e-184, -4.95892563648356e+117, -1.29281475697775e+90, -1.03519529013992e+140, -2.10529620300311e+87, 2.50138745327335e+177, -5.54222456224847e-196, NA, 3.72220597586066e-38, -1.78903964758187e+28, -4.90928233313596e+269, 1.14991664765661e-175, -4.87658830505917e+122, -4.32131333596116e+203, 1.15763940276948e+147, -3.43784590261959e+174, 3.71651854496553e+143, -8.03676745918892e+271, 111414401912.639, -4.10143700148163e+164, -3.48411768829762e-74, Inf, 4.22049698086021e+261, 3.04069590833426e-103, 2.42533033786265e+252, 5.69280795145176e-33, -6.00860354444704e+168, 1.05630456402897e+228, -3.62503309422689e-202, 57971112160.5682, -8.84015661239908e+189, 9.9514205492634e-269, -2.04640074662963e-84, 2.03258452781569e+274, -3.77097872883265e+62, -Inf, 7.94043556315441e-151, 2.29436530711057e+115, -1.26114100596021e-272, 1.51343448406109e+177, -2.07610519801798e+133, 1.61878523585952e+49, 6.49636247865213e-262, 5.81977258881248e-188, 0), longs = c(-4.35518520054434e+41, -Inf, -8.89102771435622e+144, -1.19901999165182e-30, 2.31278551276e+227, 3.1238609658841e-289, 4.76997156859888e-08, 2.04530132497127e-175, 1.05822474326238e-186, -0.396917541859666, 6.1343119069979e+74, -8.32082379952819e+93, 7.28969192392546e-23, -5.52975283616844e-272, 5.10291747963416e+263, NaN, -1.63029714386757e-37, -5.74836042011365e-159, 0), olcs = c("fywdvghitnsznpvaflgf", "udfbsjsknuahzzyvlmbq", "jxabwaejnpituyxatlgn", "ncaakvmrtnpbbrnixdcs", "dcaekzodxmvntejbgwaa", NA, "zfgbfvvwxkss", NA, "paxzsgwdkpfcoywhmxxw", "ct", "y", "owrugrsz", "vcndiakkjogvnptmhkjt", "qsos", "vdbjysubqrkrojnvrfli", "spvlzeftqad", "zzlkvuvywqvjlzmkg", "", "caucrslneegxiozeaxq", "bunrbaazdqkvzqknkvsg", "jwhnjddwslzkisqvxnit", NA, "qeke", "wnhjvuhalfgxropmpgfe", NA, "", NA, NA, "vnicxnluaaymaknuvbsx", NA, NA, "txxpczgttjvbbanuw", "wytvxalhwnjwuknmnxyg", NA, NA, NA, NA, "xngixkpihtbiiwyaoduc", "zlypoxoftqdsctokdgpw", "w", NA, NA, NA, "armfcjgrhavvsj", NA )) result <- do.call(olctools::shorten_olc,testlist) str(result)