plus-.VNC: Method '+' for the class VarNameCorresp

In david-salgado/StQ: Tools to manage metadata-incorporated key-value pair datasets

Description

+ sums two objects of class VarNameCorresp. This method overloads the operator + and returns a new object of class VarNameCorresp.

The integration is carried out according to the names of the components.

Usage

## S3 method for class 'VNC'
e1 + e2

Arguments

e1	Object of class VarNameCorresp.
e2	Object of class VarNameCorresp.

Value

Object of class VarNameCorresp resulting from integrating both VarNameCorresp objects in a single VarNameCorresp object.

Examples

library(data.table)
VarList1 <- list(
    ID = data.table(IDQual = c('NumIdEst', rep('', 4)),
                    NonIDQual = rep('', 5),
                    IDDD = c('', 'Name', 'Surname', 'PostalAddr', 'PhoneNo'),
                    NumIdEst = c('', rep('.', 4)),
                    UnitName = c('numidest', 'nombre', 'apellidos', 'direccion', 'telefono'),
                    InFiles = rep('FI', 5)),
    MicroData = data.table(IDQual = c('NumIdEst', '', '', '', '', ''),
                           NonIDQual = c('', 'Market', 'Cod','Var1', 'Var2', ''),
                           IDDD = c('', '', '', '', '','IEPEntradaPed'),
                           NumIdEst = c('', '', '', '', '', '.'),
                           Market = c('', '', '', '', '','1.'),
                           Cod = c('', '', '', '', '', ''),
                           Var1 = c('', '', '', '', '', ''),
                           Var2 = c('', '', '', '', '', ''),
                           UnitName = c('', '', '', '', '','cp09'),
                           InFiles = rep('FF', 6)))
VNC1 <- BuildVNC(VarList1)

VarList2 <- list(
    ID = data.table(IDQual = c('NumIdEst', rep('', 4)),
                    NonIDQual = rep('', 5),
                    IDDD = c('', 'Name', 'Surname', 'PostalAddr', 'PhoneNo'),
                    NumIdEst = c('', rep('.', 4)),
                    UnitName = c('numidest', 'nombre', 'apellidos', 'direccion', 'telefono'),
                    InFiles = rep('FI', 5)),
    MicroData = data.table(IDQual = c('NumIdEst', '', '', '', '', ''),
                           NonIDQual = c('', 'Market', 'Cod','Var1', 'Var2', ''),
                           IDDD = c('', '', '', '', '','IEPEntradaPed'),
                           NumIdEst = c('', '', '', '', '', '.'),
                           Market = c('', '', '', '', '','3.'),
                           Cod = c('', '', '', '', '', ''),
                           Var1 = c('', '', '', '', '', ''),
                           Var2 = c('', '', '', '', '', ''),
                           UnitName = c('', '', '', '', '','cp09'),
                           InFiles = rep('FF', 6)))

VNC2 <- BuildVNC(VarList2)

VNC1 + VNC2

david-salgado/StQ documentation built on Aug. 12, 2021, 3:23 p.m.