data-raw/Char_dictio.R

In guiboucher/INESSS-inesss: INESSS

library(usethis)
Char_dictio <- list(
  # A
  'À'='A', 'Á'='A', 'Â'='A', 'Ã'='A', 'Ä'='A', 'Å'='A', 'Æ'='AE',
  'à'='a', 'á'='a', 'â'='a', 'ã'='a', 'ä'='a', 'å'='a', 'æ'='ae',
  # C
  'Ç'='C', 'ç'='c',
  # E
  'È'='E', 'É'='E', 'Ê'='E', 'Ë'='E',
  'è'='e', 'é'='e', 'ê'='e', 'ë'='e',
  # F
  'ƒ' = 'f',
  # I
  'Ì'='I', 'Í'='I', 'Î'='I', 'Ï'='I',
  'ì'='i', 'í'='i', 'î'='i', 'ï'='i',
  # N
  'Ñ'='N',
  'ñ'='n',
  # O
  'Ò'='O', 'Ó'='O', 'Ô'='O', 'Õ'='O', 'Ö'='O', 'Ø'='O', 'Œ'="OE",
  'ð'='o', 'ò'='o', 'ó'='o', 'ô'='o', 'õ'='o', 'ö'='o', 'ø'='o','œ'='oe',
  # S
  'Š'='S', 'š'='s',
  # U
  'Ù'='U', 'Ú'='U', 'Û'='U', 'Ü'='U',
  'ù'='u', 'ú'='u', 'û'='u', 'ü' = 'u',
  # Y
  'Ý'='Y',
  'ý'='y', 'ý'='y', 'ÿ'='y',
  # Z
  'Ž'='Z',
  'ž'='z',
  # Autres
  'Þ'='B',
  'þ'='b',
  'ß'='Ss'
)

use_data(Char_dictio, overwrite = TRUE)