Description Usage Arguments Value Examples
setID
assigns a data.table to the slot ID
of the input
object.
1 2 3 4 5 6 7 | setID(object) <- value
## S4 replacement method for signature 'VNC,data.table'
setID(object) <- value
## S4 replacement method for signature 'DD,data.table'
setID(object) <- value
|
object |
Object containing slot |
value |
data.table to be assigned to the slot |
Object DD with slot ID
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 <- DD(VNC = VNC, MicroData = MicroDataDD)
IDdt <- data.table(Variable = c('NumIdEst', 'Name', 'Surname', 'PostalAddr', 'PhoneNo'),
Sort = c('IDQual', rep('IDDD', 4)),
Class = rep('character', 5),
Length = c('11', '20', '20', '20', '9'),
Qual1 = c('', rep('NumIdEst', 4)),
ValueRegExp = c('[0-9]{9}PP', '.+', '.+', '.+', '(6|9)[0-9]{8}'))
setID(DD) <- IDdt
DD
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.