Fixed this in commit #1275 (v1.9.3). Thanks Frank and Matthew Beckers for
filing it 
here<https://r-forge.r-project.org/tracker/index.php?func=detail&aid=5435&group_id=240&atid=975>
.
Arun


On Tue, Jun 18, 2013 at 1:39 AM, Frank Erickson <[email protected]> wrote:

> Ah, that did the trick! I'll use this quite a lot, I expect. Thanks, Arun.
> --Frank
>
>
> On Mon, Jun 17, 2013 at 6:19 PM, Arunkumar Srinivasan <
> [email protected]> wrote:
>
>>  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
>>
>
>
_______________________________________________
datatable-help mailing list
[email protected]
https://lists.r-forge.r-project.org/cgi-bin/mailman/listinfo/datatable-help

Reply via email to