getDoubleDotQual: Return qualifiers used in compound variable names

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

Description

getDoubleDotQual returns a character vector with all qualifier names specified with a double wildcard dot in the VNC component of the input object.

Usage

getDoubleDotQual(object, Component = names(object))

## S4 method for signature 'VNC'
getDoubleDotQual(object, Component = names(object))

## S4 method for signature 'DD'
getDoubleDotQual(object, Component = names(getVNC(object)))

## S4 method for signature 'StQ'
getDoubleDotQual(object, Component = names(getVNC(object)))

Arguments

object	Object containing the dot qualifiers.
Component	Character vector with the components or slots from which dot qualifiers are required.

Value

Character vector with all the double dot qualifier names.

Examples

library(data.table)
VarList <- list(ID = data.table(IDQual = c('NumIdEst', rep('', 4)),
                                NonIDQual = c('','','','',''),
                                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', rep('', 2)),
                       NonIDQual = c('', 'Market', ''),
                       IDDD = c(rep('', 2), 'NewOrders'),
                       NumIdEst = c(rep('', 2), '.'),
                       Market = c(rep('', 2), '1.'),
                       UnitName = c('numidest', '', 'cp09'),
                       InFiles = rep('FF, FD, FG', 3)),
ParaData = data.table(IDQual = c('NumIdEst', rep('', 2)),
                      NonIDQual = c('', 'Action', ''),
                      IDDD = c(rep('', 2), 'Date'),
                      NumIdEst = c(rep('', 2), '.'),
                      Action = c(rep('', 2), '..'),
                      UnitName = c('numidest', '', 'FechaImput'),
                      InFiles = rep('FP', 3)),
AggWeights = data.table(IDQual = c('CCAA', 'NACE09', ''),
                        NonIDQual = rep('', 3),
                        IDDD = c('', '', 'Ponderacion'),
                        CCAA = c('', '', '.'),
                        NACE09 = c('', '', '.'),
                        UnitName = c('Provincia', '', ''),
                        InFiles = rep('FA', 3)))
VNC <- BuildVNC(VarList)
getDoubleDotQual(VNC)

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