testlist <- list(accel_input = c(-1.83239237735207e-102, -5.44276336536616e-211,  -6.75955167444112e-40, -1.52479119309833e+164, -2.59511698911285e+210,  -1.30659935128959e+169, 1.16832778286469e-178, -1.8321358789538e+283,  5.71887565703211e-76, -6.98063151556246e+74, -5.47405227974676e+225,  1.7875566079245e-156, 1.73354219925383e-61, 6.0388381697322e+172,  -1.55126597453789e-37, -3.46226835632025e-98, -4.5980753909861e-175,  4.52173244756291e+34, NA, -1.82735744489759e-37, 2.20822409097156e+72,  -1.96006844987876e-267, 7.45572575587726e-117, -4.48805777266883e-178,  -Inf, Inf, NaN), samp_rate = 43691040L, vector_size = 965044073L)
result <- do.call(AGread:::latch_accel,testlist)
str(result)