#' @title weryfikuje czy dane spełniają kryterium minimalnej liczebności grupy
#' @description
#' Jeśli przekazane dane nie spełniają warunku minimalnej liczebności grupy,
#' wtedy wszystkie wartości zostają zamienione na braki danych (zanonimizowane).
#'
#' Przy tym jeśli dane są długości 0, wtedy nie są anonimizowane.
#' @param x wektor danych lub ramka danych
#' @return wektor lub ramka danych
giodo = function(x){
stopifnot(
is.vector(x) | is.data.frame(x)
)
min = get('.MLAK', pos = 1)[['giodo']]
if (is.vector(x)) {
if (length(x) < min) {
x[] = NA
}
}
if (is.data.frame(x)) {
if (nrow(x) < min) {
x[] = NA
}
}
return(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.