testlist <- list(boxes = structure(c(5.33803682126227e-25, 1.13389580390417e-156,  6.22913257904022e-62, 1.00961083613151e+226, 3.87902682161566e-187,  1.26151119495163e+272, 1.88471926278693e+265, 1.24568226247145e+302 ), .Dim = c(2L, 4L)), row_in = c(NaN, 6.47260398258288e-245,  NaN, -1.9091385617193e+281, Inf, 8.98568633114326e-217, 8.4839883693563e+52,  -1.72771386517368e+76, 9.62714751622043e-214, -1.18942088710883e+129,  NaN, 0))
result <- do.call(tagcloud:::row_overlap,testlist)
str(result)