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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.