testlist <- list(at = c(5.51174587642845e-92, -1.6684458815266e-79, 2.6178282211869e-270, 3.98183616356748e-48, -1620778835715890, 2.66341274222442e+164, -9.48246738206064e-247, 4.51839624400382e+290, 5.80939096380608e+81, 2.51454280536704e+247, 5.45113384939425e+89, -5.09243048446923e-151, 3.47493860786923e+239, -Inf, 5.01831781666588e-09, 14410186047052.6, -9.88443139882848e-148, -4.73840974262017e+220, 1.42774005672519e+305, 3.6189139903988e+92, -2.07715974550536e-80, -2.76279866593322e-258, 2.55506364328384e+42, 3.65619768814602e-162, -8.92401896958916e+167, NaN, 0.000193957807681168, -4.75606177726044e-23, -2.50111686205482e-218, 1.79288719945981e+115, NaN, -4.57000116995103e+135, -6.9886525764733e-259, NA), ease = c("mallvjozpkhdquxoehuu", NA, "v", "lwnopdxvmkyqdznujwia", "unkiurqmtvhpyjoeldnh", "xsjqnsegzdznmyjruruo", NA, NA, "rwmbozcayazeaskmicms", "acsovvhpqvz", "rkihkhtbbb", NA, "aiazjtwgkdhjdctbhsil", "bcmejfxybootpmzasdvt", NA, "worixwfwpytmwqehtofa", NA, NA, NA, "asldqtvdloddatdlkagv", "rzebbhowkvjpmtkugfng", "kriiccwgejcdrstbfizf", NA, NA, "hackmuyymgsxztmxibov", "irhmw", "kjqeroxocebwyzwoukzp", NA, NA, "oklxosxloeqbzgfwnvtq", "vkhevuvitndjwnqjqkek", NA, "fouihuiddqegarcpqruc", "koekfqgirpgaupdhsr", "oqrpajvggle", "zdomxp", "zwzkuqopedfesrcimmdr", "dpsniytvopilsmizo", "fbnajovehdaclrtkitsw", "kylywkabpucqrmotqace", NA, NA, NA, "tfjuzkacbkdidvrbzcph", NA, "gojl", NA, "gxsspcpvpqljpvyrklsc", "ffkcbrbybdkyitmyakmw", NA, "wavxagdzxpullglwiyve", "ihxkdxwruahiguqkyvtl", NA, "qqcwtdlmom", NA, NA, NA, "fduagwfpqojauwcjojdm", "pprqwwyfewggkfods", NA, "yohmypjqdmzavahqer", "gquiwkughlbdaffdrtgt", "ozccxbeojiigshorjuwm", "ezyfljpqlcpyfirrgvjf", NA, "", "gzuxfrjyjnevhndbtimv", "xzobbumkpmqsibuqtfbr", "ormdvibxcpmvrafulf", NA, "quf", "gtpjrkervsbzayfwypzz", "ydeyjkmxmmztqrotxfra", NA, NA, "mtkrtvcodxuzjeeghwsp", NA, "zsoujmpckbs", "ujchwdxzjpawxzlwt", "gmpnizzibxp"), from = structure(c(9.72613297902591e-288, 2.18914966186083e-247, 8.80179107945163e-174, 1.96465812066102e-246, 6.20976644056122e+120, 7.18189862077759e-28, 2.4940801213836e+292, 1.57546125271901e-262, 5.2210287513704e+290, 1.31150224361457e+91), .Dim = c(1L, 10L )), to = structure(c(5.43346686390364e-253, 2.24697307508564e+185, 1.42258695708419e+117, 4.11863914412531e-170, 1.80249867982184e+156, 2.69873468551087e-257), .Dim = 2:3)) result <- do.call(tweenr:::colour_at_interpolator,testlist) str(result)