data-raw/internal_data.R

In jeanmanguy/peptr: What the Package Does (One Line, Title Case)

amino_acid_full_names <- c(
  "A" = "Alanine",
  "R" = "Arginine",
  "N" = "Asparagine",
  "D" = "Aspartic acid",
  "C" = "Cysteine",
  "E" = "Glutamic acid",
  "Q" = "Glutamine",
  "G" = "Glycine",
  "H" = "Histidine",
  "I" = "Isoleucine",
  "L" = "Leucine",
  "K" = "Lysine",
  "M" = "Methionine",
  "F" = "Phenylalanine",
  "P" = "Proline",
  "S" = "Serine",
  "T" = "Threonine",
  "W" = "Tryptophan",
  "Y" = "Tyrosine",
  "V" = "Valine"
)

amino_acids <- names(amino_acid_full_names)

usethis::use_data(
  amino_acids,
  amino_acid_full_names,
  internal = TRUE,
  overwrite = TRUE,
  version = 3
)