R/utils.R

In matthiasgomolka/sdcLog: Tools for Statistical Disclosure Control in Research Data Centers

#' Helper function to fill SDC variables
#' @importFrom data.table set
#' @keywords internal
#' @noRd
fill_na <- function(data, id_var, rows) {
    data.table::set(
        data,
        i = rows,
        j = id_var,
        value = paste0("<filled_", seq_along(rows), ">")
    )
}