<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>