How to avoid renaming of rows when using rbind inside do.call?

Question

I am trying to bind some sub elements of the elements from the list The list `OC` is as follows ``` > library(quantmod) > OC <- getOptionChain('AAPL', NULL) > str(OC) List of 9 $ Feb 2013:List of 3 ..$ calls :'data.frame': 35 obs. of 7 variables: .. ..$ Strike: num [1:35] 380 390 400 410 420 430 440 445 450 455 ... .. ..$ Last : num [1:35] 89.9 86 60 49.5 39.8 ... .. ..$ Chg : num [1:35] 0 0 -0.4 -4.4 -0.7 -1.9 -0.55 -0.7 -0.95 -1 ... .. ..$ Bid : num [1:35] 79.5 69.8 59.8 49.8 39.6 ... .. ..$ Ask : num [1:35] 80.2 70.2 60.2 50.2 40.2 ... .. ..$ Vol : num [1:35] 1 1 48 11 61 ... .. ..$ OI : num [1:35] 2 2 55 29 41 ... ..$ puts :'data.frame': 40 obs. of 7 variables: .. ..$ Strike: num [1:40] 380 385 390 395 400 405 410 415 420 425 ... .. ..$ Last : num [1:40] 0.01 0.05 0.07 0.08 0.03 0.04 0.02 0.04 0.06 0.06 ... .. ..$ Chg : num [1:40] -0.03 0 0 0 -0.08 -0.06 -0.1 -0.08 -0.11 -0.17 ... .. ..$ Bid : num [1:40] NA 0.01 NA NA 0.02 0.01 0.01 0.04 0.05 0.06 ... .. ..$ Ask : num [1:40] 0.01…

Accepted Answer

You can avoid `do.call(rbind,...)` by using `data.table::rbindlist`.

This will return a `data.table`. `data.tables` don't have rownames.

It is also blindingly fast!

```
library(data.table)
allputs <- rbindlist(lapply(OC, FUN = function(x) x$puts))
# my eyes, I'm blinded!
```

If you want to include the original rownames as a column then

```
lputs <- lapply(OC, FUN = function(x) x$puts)

allputs <- rbindlist(lputs)
 # add the column with rownames
 allputs[,rn := unlist(lapply(lputs, rownames))]
```

If you don't want to move to data.tables, then you could set the parent names to `NULL`

```
 names(lputs) <- NULL

do.call('rbind', lputs)
```

How to avoid renaming of rows when using rbind inside do.call?

Solution

Problem