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