Description Usage Arguments Value Examples
setAggregates
assigns a data.table to the slot Aggregates
of
the input object.
1 2 3 4 5 6 7 | setAggregates(object) <- value
## S4 replacement method for signature 'VNC,data.table'
setAggregates(object) <- value
## S4 replacement method for signature 'DD,data.table'
setAggregates(object) <- value
|
object |
Object whose slot |
value |
data.table to be assigned to the slot |
Object with slot Aggregates updated.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | ## Not run:
library(data.table)
MicroDataDD <- data.table(Variable = 'NewOrders', Sort = 'IDDD', Class = 'numeric',
Length = '8',
Qual1 = 'NumIdEst', Qual2 = 'Market', ValueRegExp = '')
VarList <- list(MicroData = data.table(IDQual = c('NumIdEst','','',''),
NonIDQual = c('', 'Market', 'Cod', ''),
IDDD = c('', '', '' ,'NewOrders'),
NumIdEst = c('', '', '', '.'),
Market = c('', '', '', '1.'),
Cod = rep('', 4),
UnitName = c('', '', '', 'cp02'),
InFiles = rep('FF', 4)))
VNC <- BuildVNC(VarList)
DD <- BuildDD(list(VNC = VNC, MicroData = MicroDataDD))
Aggdt <- data.table(Variable = c('NACE09', 'Turnover'),
Sort = c('IDQual', 'IDDD'),
Class = c('character', 'character'),
Length = c('4', '10'),
Qual1 = c('', 'NACE09'),
ValueRegExp = c('([0-4][0-9])|(5[0-2])', '([0-9]{1, 15}| )'))
setAggregates(DD) <- Aggdt
DD
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.