R/nhsid.R

In sdglinkage: Synthetic Data Generation for Linkage Methods Development

#' Generate a random nhsid.
#'
#' \code{gen_nhsid} randomly return a 10-digit nhsid that is generated
#'     following the Modulus 11 Algorithm;
#'
#' @return The output is string with 10 numbers.
#' @examples
#' gen_nhsid()
#'
#' @export
gen_nhsid <- function()
{
  numbers <- sample(0:9, 9)
  multipliers <- c(10, 9, 8, 7, 6, 5, 4, 3, 2)
  multiplied <- numbers * multipliers
  remainder <- sum(multiplied)%%11
  check <- 11 - remainder

  if (check == 10)
  {
    gen_nhsid()
  } else if (check == 11)
  {
    numbers[10] <- 0
  } else
  {
    numbers[10] <- check
  }
  return(paste(unlist(numbers), collapse = ""))
}