testlist <- list(scal = c(-3.48837154300591e-09, -1.5015306445219e+251, 1.57867353826414e-307,  -7.00761512539766e-50, -6.99565969036477e-60, 2.58197152657597e-253,  -2.63239445434045e-196, 9.32252129454598e-200, 1.66711597576406e-146,  2.48670270489439e+34, 4.3931873228552e-139, -1.36007385895426e+107,  2.86378878410093e-96, 3.02277514595584e-165, 1.34862341910678e-57,  5.86821976171958e+165, -4.9114353478362e+258, -5.33604860303003e+203,  -6.88846063823225e+106, -3.43788037282818e-268, 8.94805234466781e+170,  -2.04429918857198e-36, -6.03987276349896e-114, 2.6072267553008e+99,  -6.29778110287011e-66, 3.91790302280202e+115, 3.92709790932095e+276,  -3.86193427285116e+221, 3.59913256350067e-219, -3.45053132888275e+232,  -6.25833835767484e-147, -2.16548722951424e+140, -8.58505054174815e-232,  99582634998012.8, -3.71023707051442e-280, 1740895450483202, 1.10419764355453e+143,  3.36904477212784e+294, 1.11438778586174e+215, -2.48153615512573e-22,  3.10688610123256e-226, 1.11179156437827e-242, 1.54020295006986e-307,  1.41399591567299e-40), x = structure(c(1.05414702709612e-68,  1.86446765666332e-211, 449058805123160512, 2.72550962279315e-214,  6.53679281395345e-70, 2.42643425911725e+241, 1.65686753146763e+24 ), .Dim = c(1L, 7L)), xmin = c(-Inf, -2.01993546991465e+299,  -9.49379129257654e-217, -Inf, NaN), ymin = c(-4.65964884369147e+48,  -2.89546018569714e+293, -1.06305578296019e-80, -1.30127318958429e+303,  8.5220282987349e-173, -1.7837864519252e+117, 8.74197471575601e-11,  -1.81159209160309e+241, -8.37568318882354e-193, -3.10500434334229e-44,  3.63466390297806e+55, 1.02898765464505e-113, -3.62271414759885e-43,  -9.37610493326795e+29, 3.3104898092482e-86, 4.04108393141693e-05,  47037265763.5606, -7.1017886711431e+124, 6.40302598496721e-170,  -1.54043107555478e-31, 2.12906259383071e-151, 6.46935989252216e-190,  -25356168006047652, 7.07925828984586e+204, 3.63997221503054e-134,  3.3757125106534e+193, 1.88416282645203e+169, -6.39468301841592e-198,  4.30780150841298e-235, -1.28327049171883e+64, 7.32983221202172e-151,  -1.47559314837127e-74, -3.52553514798294e-242, 5.32899448695833e-179,  -4.22572909680903e-258, 9.45304518781788e+179, -1.47611421367456e-283,  -49703939167280087040, -2.18036631104119e+151, -1.11793900573624e-288,  7.92344434976047e-219, 2.81501725202838e+231, -1.32864415518915e-163,  1.58452789264731e+68, -1.17582717654621e-163, -1.72376050947722e-175,  3.78768033497385e-302))
result <- do.call(RStoolbox:::rescaleImageCpp,testlist)
str(result)