data.tables и функция развертки

Использование data.table, что было бы самым быстрым способом "подметать" статистику по выбранным столбцам. ?

Начиная с (значительно больших версий )DT

p <- 3
DT <- data.table(id=c("A","B","C"),x1=c(10,20,30),x2=c(20,30,10))
DT.totals <- DT[, list(id,total = x1+x2) ]

я хотел бы получить следующий результат data.table, индексируя целевые столбцы (2:p)по порядку. чтобы пропустить ключ:

    id  x1  x2
[1,]    A   0.33    0.67
[2,]    B   0.40    0.60
[3,]    C   0.75    0.25