testlist <- list(nsites = 521462624L, offset = c(Inf, 2.2595532083367e-253,  -2.22279490010464e+86, NaN, 2.18042916792729e+197, -3.20130639806451e-245,  -1.9013334075196e+261, -9.14082930408352e+228, -6.41003867471712e+96,  -Inf, -1.47957211223339e+264, 2.32990105257688e-38, -2.64601050912834e-281,  -3.17547225763969e-31, -3.31834072754825e+118, -0.00540971101195192,  5.94644144967521e-81, -3.63310109904718e-160, 4.54313600976354e+200,  -Inf), sigma2 = 1.01322005087787e-231, theta_tune = 1.2724022517113e+275,      theta = c(-3.02717615596875e+148, 2.6276635830124e-79, -1.46946503760811e-263,      -6.12112354568632e-266, 1.18889409415006e+228, -3.55622189570011e-184,      2.33618826593816e-162, 1.68217943698089e-36, Inf, -7.14250008262563e-265,      -4.96575442150969e+248, 8.20213568177007e+43, NaN, -Inf,      -1.29775435395479e+30, -6.04524756647784e+56, -7.89730873024848e-291,      1.26269231355293e-140, -Inf), y = c(2.29069359191927e-176,      9.1092048896748e-124, 4.19231318704679e-191, 2.23172394708317e-301,      -3.20523952893478e+212, -2.66514770709841e+123, 4.85016024674663e+237,      1.74805057397552e-242, -7.88299188557871e-122, 3.12010807844807e-128,      1.65583106120015e-243, -1.75587087464681e+228, -9.08817931333519e-212,      6.55312439229127e-49, 0.00090990925726163, -4.54079911524575e+160,      -1.98610604053472e+68, 7.41278824174202e+282, 2.6015188466623e+221,      5.56166835404247e+200, 4.42416664372762e-214, -4.02096061389352e-271,      -5.74011204493593e-100, 6.71694372996398e+87, -1.01748665355705e-243,      3.44587666314483e+112, NaN, -2.04604971926369e+49, NA, -4.07869407918799e-240,      NaN, 23346090724.7856, -5.91988921842999e-129, 1.96264337727106e-202,      -5.56811271097958e-299, 2.73738593815044e+179, Inf, 1.91493373832111e+80,      2.87927907682947e+143, -1.50039278821e-217, 7.97712383597992e+282,      2.90242263869601e+280, -2.10278046633229e-229, 5.7941686967897e+264,      -1.37251424386269e+103, 4.21391149849116e+220, -52378303.0646622,      -Inf, -1.0177283526451e-07, -1.14682094447012e-178, 2.25315770333001e-59,      3.40543822128371e+209, 2.17300996875152e+151, 8.66667673836834e+25,      0))
result <- do.call(CARBayes:::poissonindepupdateRW,testlist)
str(result)