R/giodo.R

In zozlak/MLAK: Generator raportow MLAK

#' @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)
}