data-raw/fisher.R

fisher_tbl <- tibble::tribble(
  ~letter, ~emoji,
  "a", c("πŸ…°οΈ", "β›Ί"),
  "b", "πŸ…±οΈ",
  "c", c("πŸ₯", "πŸ“ž"),
  "d", c("↩️", "πŸ‘‚"),
  "e", c("πŸ“§", "3️⃣"),
  "f", c("πŸ₯€", "🎏"),
  "g", "πŸ—œ",
  "h", c("♓️", "πŸ™Œ"),
  "i", c("πŸ•―", "ℹ️"),
  "j", c("🌢", "πŸ—Ύ"),
  "k", "πŸŽ‹",
  "l", c("πŸ‘", "πŸ•’", "πŸ‘’"),
  "m", c("♏️", "♍️", "Ⓜ️", "〽️"),
  "n", "♑️",
  "o", c("🀑", "πŸ˜‹", "πŸ™†", "❄️", "πŸ’Ώ", "πŸ…ΎοΈ", "\U0002b55", "\U0001F518", "\U0001F535", "\U0001F534", "\U00026AB", "\U00026AA", "❀️", "\U0001F300"),
  "p", "πŸ…ΏοΈ",
  "q", c("πŸ—¨", "🍳", "πŸŽ…"),
  "r", c("🌱", "\U00AE"),
  "s", c("⚑️", "\U0001F4B2"),
  "t", c("✝️", "\U0001F334", "\U0002795"),
  "u", c("\U00026CE", "\U0001F319", "πŸ‘…"),
  "v", c("✌️", "\U0001F596", "β™ˆοΈ"),
  "w", c("\U0001F450", "\U0001F335"),
  "x", c("βš’", "\U0001F6E0", "βš”οΈ", "\U0002694", "\U000274C", "βœ‚οΈ"),
  "y", c("\U0001F938", "\U0001F378"),
  "z", c("\U0001F4A4", "\U00024E9"),
  "!", c("❕", "❗️"),
  "?", c("❓", "❔")
)

fisher_lst <- structure( tibble::deframe(fisher_tbl), class = "fisher_alphabet" )

devtools::use_data(fisher_lst, overwrite = TRUE)
hadley/emo documentation built on Dec. 16, 2019, 3:42 p.m.