data/raw-data/generating_sysdata.R

In FRBCesab/authoR: The Title of the Project

## SCRIPT TO GENERATE PACKAGE INTERNAL DATA ##

unwanted_latin <- c('À', 'Á', 'Â', 'Ã', 'Ä', 'Å', 'Æ',
                    'Ç', 'È', 'É', 'Ê', 'Ë',
                    'Ì', 'Í', 'Î', 'Ï',
                    'Ñ', 'Ò', 'Ó', 'Ô', 'Õ', 'Ö', 'Ø',
                    'Ù', 'Ú', 'Û', 'Ü', 'Ý', 'Þ', 'ß',
                    'à', 'á', 'â', 'ã', 'ä', 'å', 'æ',
                    'ç', 'è', 'é', 'ê', 'ë',
                    'ì', 'í', 'î', 'ï',
                    'ð', 'ñ', 'ò', 'ó', 'ô', 'õ', 'ö', 'ø',
                    'ü', 'ù', 'ú', 'û', 'ý', 'þ', 'ÿ',
                    'Ŀ', 'ŀ', 'Ŋ', 'ŋ',
                    'Œ', 'œ', 'Š', 'š', 'Ÿ', 'Ž', 'ž')
unwantedLatin <- textclean::replace_non_ascii(unwanted_latin)
names(unwantedLatin) <- unwanted_latin

# unwantedEncoding <- c('ã¡' = 'a',
#                       'ã¢' = 'a',
#                       'ã£' = 'a',
#                       '&#225;' = 'a',
#                       'ã§' = 'c',
#                       'ã©' = 'e',
#                       'ãª' = 'e',
#                       'ã´' = 'o',
#                       'ã\u008d' = 'i',
#                       'ãº' = 'u')
# badEncoding <- c("À", "Â", "Ã", "Ä", "Å", "Æ", "Ç", "È", "É",
#                  "Ê", "Ë", "Ì", "Î", "Ñ", "Ò", "Ó", "Ô",
#                  "Õ", "Ö", "×", "Ø", "Ù", "Ú", "Û", "Ü", "Þ", "ß",
#                  "á", "â", "ã", "ä", "å", "æ", "ç", "è", "é", "ê",
#                  "ë", "ì", "î", "ï", "ð", "ñ", "ò", "ó", "ô", "õ",
#                  "ö", "ø", "ù", "ú", "û", "ü", "ý", "þ", "ÿ", "í")
# names(badEncoding) <- c("À", "Â", "Ã", "Ä", "Å", "Æ", "Ç", "È", "É", "Ê", "Ë",
#                         "Ì", "Î", "Ñ", "Ò", "Ó", "Ô", "Õ", "Ö", "×", "Ø",
#                         "Ù", "Ú", "Û", "Ü", "Þ", "ß", "á", "â", "ã", "ä", "å",
#                         "æ", "ç", "è", "é", "ê", "ë", "ì", "î", "ï", "ð", "ñ", "ò",
#                         "ó", "ô", "õ", "ö", "ø", "ù", "ú", "û", "ü", "ý", "þ", "ÿ", "í")

# Saving data
usethis::use_data(unwantedLatin,
                  # unwantedEncoding,
                  # badEncoding,
                  overwrite = TRUE,
                  internal = TRUE,
                  compress = "xz")
#Removing data
rm(list = ls())