testlist <- list(x = c(-4.40542167393296e-65, 9.93765015009146e+292, 2.32002580293826e+83,  -3.79864241792839e-121, 1.8883108834625e-213, 2.45400007991628e-127,  -5.16833556972955e+138, -6.51850214476773e+234, 5.70876483084426e+39,  -1925.98874452245, 3.40619744136121e+177, 3.79124675916177e-141,  -3.78688578449402e-26, 6.67997172957005e+201, 1.9529638921179e-225,  3.6712239261411e+174, -6.02246826322777e+297, NA, -3.64068544838652e+264,  -1.02667353736304e+221, -4.93898503461023e-292, 1.18829283671081e+83,  4.54940249892308e+83, 6.14545433376592e-207, 2.68266245762969e+268,  -1.49404189804505e+247, 7.68738535365778e-208, NaN, -1.21095565819795e-290,  -9.56764834309804e-120, -1.23782442780946e+306, -6.58679767209119e-128,  6.87917021540263e+136, -4.09753193092625e-228, 5.93333407886065e-215,  2.89107199791954e+289, -1.646287653183e+219, 2.77718146285877e+36,  9.30500924864227e-126, -8.40171409844756e-48, -8.72773219496197e-222,  4.27064912662926e+243, 7.56179477482992e+267, 1.4852464645177e-139,  4.58275012087099e+262, NA, -8.2398052672162e-124, -1.61625624077693e-196,  Inf, NaN, 3.46444855761134e-66, 0), y = c(-4.26535585626031e-172,  -4.91159339879264e+144, NaN, -5.78033365502816e+47, 3.14543417671943e+71,  1.45707072314645e-150, -1.49647307269512e+55, 3.17593602330385e+283,  -8.03700930127113e-63, NaN, -6.8764198779315e+114, NaN, 6.06514241082836e-274,  -Inf), z = c(-3.7700087602161e-227, -8.3402668372068e-233, -1.24281289757618e-05,  -28840.7333121822, -4.37727353720647e+254, 3.13654211800681e-85,  -3.76231422108544e+52, -6.31741617770852e-211, -8.66993844078321e+261,  1.1117441654849e+142, 5.10689771366304e-129, -1.46036036480052e+48,  1.71257617800484e-283, -9.08327952567724e+305, -1.30600670447582e+305,  1.08926338651709e-148, 2.71680934568034e+132, -5.8032823387494e-11,  -2.85872975931615e+241, -7.74791560420897e-19, -9.59397749615236e+77,  4.83971411050934e+69, -5.45477334000085e-271, -2.48862746970432e-42,  3.28210348026581e+35, 4.67312596346647e-145, -9.18314541720968e-128,  2.07710254085057e-65, -1.90197028346882e+30, 1.19058790091003e-171,  2.24342656898717e+49, -4.13174446269019e+86, -6.83525687300405e-232,  -3.42166300853448e-276, 1.24500067690926e+209, -8.58092169705662e-211,  2.18255179229511e-73, -3.5933569953196e+93, 3.71869252186039e+26,  4.78749787213883e+73, -1.50202045722572e-46, 3.23818628153062,  -1.01182702701194e+40, 1.05564639719395e+45, 1.31617302300027e+270,  -9.09121323093162e+39, -2.56666228947278e-219, 7.83884524627882e+64 ))
result <- do.call(s2:::s2_point_from_numeric,testlist)
str(result)