R/misc.R

In paasim/fino: An R package for working with Finnish ID numbers

# map for the checksum in the finnish personal identification code
pic_cs_map <- function(x) {
  check_vec <- c(0:9, LETTERS[c(1:6, 8, 10:14, 16, 18:25)])
  check_vec[(as.integer(x) %% 31)+1]
}

# map for the checksum in the Business ID
yt_cs_map <- function(x) {
  res <- map_int(x, ~sum(as.integer(.x) * c(7L, 9L, 10L, 5L, 8L, 4L, 2L))) %>%
    mod(11L) %>%
    na_if(1L)
  if_else(res == 0L, res, 11L - res)
}

valid_yt_cs <- function(x) {
  check_actual <- as.integer(str_sub(x, 9, 9))
  check <- str_sub(x, 0, 7) %>%
    str_split("") %>%
    yt_cs_map()
  coalesce(check_actual == check, FALSE)
}

regex_pic <- "\\d{6}[A+-]\\d{3}[:alnum:]"
regex_ovt <- "0037\\d{8}\\d{0,5}"
regex_yt <- "\\d{7}-\\d"
regex_vat_fi <- "FI\\d{8}"
regex_vat_all <- function() str_c("(", str_c(vat_regexes$format, collapse = "|"), ")")


.onAttach <- function(...) {
  ver <- utils::packageVersion("fino")
  packageStartupMessage("This is fino version ", ver)
}