Dear Frank, Thanks for forwarding to the list. I always seem to forget to "reply-all". Apologies. Managed this time! :)
Try this on your data:
as.data.table(do.call("cbind", lapply(DT, function(x) {
if (is.list(x)) {
lapply(x, function(y) as.numeric(format(y, digits=2)))
} else
as.numeric(format(x, digits=2))
})))
Arun
_______________________________________________ datatable-help mailing list [email protected] https://lists.r-forge.r-project.org/cgi-bin/mailman/listinfo/datatable-help
