<div>
                    Dear Frank,
                </div><div><br></div><div>Thanks for forwarding to the list. I always seem to forget to "reply-all". Apologies. Managed this time! :)</div><div><br></div><div>Try this on your data:</div><div><br></div><div><div>as.data.table(do.call("cbind", lapply(DT, function(x) {</div><div><span class="Apple-tab-span" style="white-space:pre">   </span>if (is.list(x)) {</div><div><span class="Apple-tab-span" style="white-space:pre">            </span>lapply(x, function(y) as.numeric(format(y, digits=2)))</div><div><span class="Apple-tab-span" style="white-space:pre">       </span>} else </div><div><span class="Apple-tab-span" style="white-space:pre">         </span>as.numeric(format(x, digits=2))</div><div>})))</div></div><div><br></div><div><br></div>
                <div><div><br></div><div>Arun</div><div><br></div></div>
                 
                <p style="color: #A0A0A8;"><br></p>