#' Show
#'
#' show a sdcMicro object
#' @param object an sdcmicro obj
#' @author Bernhard Meindl
#' @return a sdcMicro object
#' @export
setMethod(f="show", signature="sdcMicroObj",
definition = function(object) {
print(object, type="general")
if (length(object@keyVars) > 0) {
print(object, type="recode")
print(object, type="kAnon")
}
if (length(object@numVars) > 0) {
print(object, type="numrisk")
}
if (!is.null(object@pram)) {
print(object, type="pram")
}
if (!is.null(object@localSuppression)) {
print(object, type="ls")
}
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.