#' @title Return slot MicroData from an object
#'
#' @description \code{getMicroData} returns slot \code{MicroData} of the input object.
#'
#' @param object a DD Object whose slot \code{MicroData} is queried.
#'
#' @return Returns a \linkS4class{DDdt} object containing the slot \code{MicroData} of the input object.
#'
#' @examples
#' # An example:
#' library(data.table)
#' ### We build the VNC object
#' 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', 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), 'Imputation'),
#' 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('FF', 3)))
#'
#' VNC <- BuildVNC(VarList)
#' getMicroData(VNC)
#'
#' @include VNC.R DD.R
#'
#' @export
setGeneric("getMicroData", function(object){standardGeneric("getMicroData")})
#' @rdname getMicroData
#'
#' @export
setMethod(
f = "getMicroData",
signature = c("VNC"),
function(object){object$MicroData}
)
#' @rdname getParaData
#'
#' @export
setMethod(
f = "getMicroData",
signature = c("DD"),
function(object){object$MicroData}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.