data-raw/rccvast_persnr_fejk.R

In rOpenGov/sweidnumbr: Handling of Swedish Identity Numbers

# Note that package gdata is required below.
# This is not formally specified since this script is just intended 
# for internal use

# test_pin_skatteverket.csv contain test cases from Skatteverket that should not exist
# According to Datainspektionen it is illegal to use pins in use as test (even if they are randomly created)

pins <- read.delim(sep=";",text = "
  pin	name
  15121212-1212;TOLVANSSON, TOLVAN	
  081212-1212;TOLVANSSON, TOLVAN TJUGO
  081212+1212;TOLVANSSON, TOLVAN NITTON
  0812121212;TOLVANSSON, TOLVAN TJUGO GISSNING
  15910625-2523;DOTNET, KARIN ASTRID INGEGERD
  14961107-0798;BIZTALK, LEIF EGON
  15001112-1298;SKYPE, VERNER
  16080905-0523;EXCEL, EDA INGEBORG
  14910125-2598;SCROLLBAR, EVERT ROLF
  16140123-2323;NUMLOCK, OTTY EDA INGEBORG
  16140123-2321;NUMLOCK, OTTY EDA INGEBORG FEL
  15991004-0423;GRAN, MARIKA ELISABETH
  15090420-2098;TALL, VERNER
  15990729-2923;KVIST, EVA MARLENE
  15020214-1498;PALM, KARL
  16140903-0323;EK, M SUSANNA
  16010330-3023;VIDE, ANNA SOFIA
  15510606-0621;BLAD, JEANETTE BIRGIT CARINA
  16000729-2923;BARR, JOHANNA LINA MARIA
  15931020-2023;AL, INGELA HELENA
  16050917-1723;ASP, PIA SOFIA
  15080311-1198;JERNSTROM, ERIK 
  15320217-1784;KOPPARSTROM, PIYADA ELLINOR
  15001127-2798;BLYSTROM, AKE
  15031230-3098;GULDSTROM, SVEN OLOV CHRISTER
  16080710-1023;SILVERSTROM, SOFIA
  16080710-1021;SILVERSTROM, SOFIA FEL
  15430202-0292;TENNSTROM, BENGT PETER
  15001128-2898;ZINKSTROM, PAL
  15120211-1199;OCBERG, KARL AXE
  15900918-1823;NINETECH, SILVIA
  15380403-0374;TESTBERG, KJELL OSVALD
  15970711-1123;TANGENT, SIF MERIT YVONNE
  16130426-2623;FALCON, TARAGONA
  15920928-2823;ZEUNERT, LISBETH
  15101029-2998;CARLSBERG, MATS EVERT
  15950507-0723;SPENDRUP, MARIE 
  15940824-2423;HEINEKEN, ADA
  15530512-1226;BUDWEISER, JORUN
  15020609-0998;GUINESS, BO MATS GUNNAR
  14920822-2298;FALK, JOHN MARTIN
  14920822-2299;FALK, JOHN MARTIN FEL
  15920419-1923;DUVA, BARBRO CHRISTINA
  15930422-2223;UGGLA, MARIA
  15961011-1123;SVAN, SIV CARINA
  15330810-1092;TRANA, ULF CONNY 
  15930411-1123;GLADA, MARIA GUNHILD
  15080904-0498;GLADA, LENNART PER-OLOF
  16130325-2523;SVALA, SARA LINNEA JOHANNA
  16070126-2623;NOUGAT, BRUN
  16050429-2923;PIGALL, AGNET
  15931019-1923;ANDERSSON, ALADDI
  15471130-3022;TWIST, LIS
  15440311-1131;NOBLESSE, RAGNAR JOHN 
  16000805-0523;NILSSON, CHOK
  15240622-2286;CADBURY, LOVISA
  15020517-1798;PLOPP, AUGUST
  16050111-1123;MINT, MARIA ADA
  15370215-1590;NILSSON, BARRY 
  15970430-3023;BERG, ANTO
  16031010-1023;CENTER, PALL
  16010218-1823;CACAO, EDA")

pins <- data.frame(pin = stringr::str_trim(row.names(pins)), name = pins$pin, stringsAsFactors=FALSE)
pins$name <- iconv(pins$name, to = "UTF-8")
pins$pin <- 
  paste0(as.numeric(stringr::str_sub(pins$pin,1,2)) + 4, 
         stringr::str_sub(as.character(pins$pin),3))
fake_pins <- pins

devtools::use_data(fake_pins, overwrite = TRUE)