testlist <- list(d = 829715475L, grow_node = 9.61250544591449e-224, ld_obs = c(2.77718146285877e+36,  9.30500924864227e-126, -8.40171409844756e-48, -8.72773219496197e-222,  4.27064912662926e+243, 7.56179477482992e+267, 1.4852464645177e-139,  4.58275012087099e+262, 2.74117807829207e+272, Inf, -1.61625624077693e-196,  1.87397454569812e-146, 3.2384449186444e-244, 3.46444855761134e-66,  -5.37690095715205e-158, -1.28660504059347e-139, 2.0127103439709e+306,  -4.31469376153359e-53, 2.77107018684392e-96, 4.37746848029226e+95,  1.09678151544239e+241, -Inf, NA, -3.38502859367595e+134, -5.78033365502816e+47,  3.14543417671943e+71, 5.27901514942818e-206, -1.49647307269512e+55,  -1.86355298533896e-294, -8.03700930127113e-63, 6.7374635655351e+204,  -6.8764198779315e+114, 4.88125202915188e-36, 6.06514241082836e-274,  -1.67445762385277e-78, 2.99383542751916e-157, -1.65243256754972e-16,  -0.350684120543919, NaN), left_daughter = 1.92113081680848e+260,      prior_tree_matrix_temp = structure(c(6.77801672019784e-61,      4.02883278934958e+82, 1.37085196308948e+166, 6.49238595839675e+224,      1.47759173860095e+143, 1.05926212750091e+69, 2.42001803049194e+54,      2.26741280992956e+104, 6.27440348502726e-62, 2.66026672532904e-251,      1.18795600833053e-216, 2.24371383759114e+115, 1.55722861612274e+234,      2.40647487261906e-78, 2.96154001181349e-179, 2.06460341013277e-90,      2.85352793714464e-137, 1.24663681163331e-33, 5.07852698549192e+212,      4.27062448099837e+251, 3.33956571050786e-305, 8.82759776575692e+208,      6.32727097150918e+43, 1.62942948893942e+287, 3.25349594504143e-58,      5.23732408792197e-77, 1.40524532376617e+109, 0.0027415258446282,      7.47790358181259e-305, 0.000847738670001724, 1.92871530416176e-182,      2.29110570662922e-102), .Dim = c(4L, 8L)), rd_obs = c(-4.37727353720647e+254,      3.13654211800681e-85))
result <- do.call(bartBMA:::update_grow_obs,testlist)
str(result)