data-raw/frac_style.R

In rossellhayes/fracture: Convert Decimals to Fractions

numerators <- c(
  "0" = "\u2070",
  "1" = "\u00B9",
  "2" = "\u00B2",
  "3" = "\u00B3",
  "4" = "\u2074",
  "5" = "\u2075",
  "6" = "\u2076",
  "7" = "\u2077",
  "8" = "\u2078",
  "9" = "\u2079",
  "-" = "\u207b",
  "I" = "\u2071",
  "n" = "\u207f",
  "f" = "\u1da0"
)

denominators <- c(
  "0" = "\u2080",
  "1" = "\u2081",
  "2" = "\u2082",
  "3" = "\u2083",
  "4" = "\u2084",
  "5" = "\u2085",
  "6" = "\u2086",
  "7" = "\u2087",
  "8" = "\u2088",
  "9" = "\u2089",
  "-" = "\u208b"
)

usethis::use_data(numerators, denominators, internal = TRUE, overwrite = TRUE)