testlist <- list(x = c(2.23115366513598e-52, -9.80491499376613e-42, 9.20867121555957e+185, -3.29355177558439e-82, 3.21278903348739e+258, -Inf, Inf, 1.61794524051795e+255, 2.45367525792423e-179, -2.98866548688484e-223, 5.09258293687769e+66, 2.16380716484399e-13, Inf, -1.32842410618824e-49, 4.67122468446706e-117, -3.98396753316689e-101, -Inf, 0)) result <- do.call(anytime:::fmt,testlist) str(result)