Add names to ji_find

Fixes #4
hadley · Apr 28, 2017 · d0f71f6 · d0f71f6
1 parent 97754fd
commit d0f71f6
Show file tree

Hide file tree

Showing 6 changed files with 16 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -11,8 +11,9 @@ Depends: R (>= 2.10)
 License: GPL-3
 Encoding: UTF-8
 LazyData: true
-Imports: 
+Imports:
     tibble
 RoxygenNote: 6.0.1
 URL: https://github.com/hadley/emo
 BugReports: https://github.com/hadley/emo/issues
+Suggests: testthat
diff --git a/R/sysdata.rda b/R/sysdata.rda
diff --git a/README.md b/README.md
@@ -20,6 +20,8 @@ devtools::install_github("hadley/emo")
 Example
 -------
 
+*💩*
+
 You can either refer to emoji by their name (which is unique):
 
 ``` r

diff --git a/data-raw/emojis.R b/data-raw/emojis.R
@@ -25,6 +25,8 @@ invert <- function(x) {
 
 emoji_keyword <- invert(keywords)
 
+emoji_keyword[names(emoji_name)] <- map2(emoji_keyword[names(emoji_name)], names(emoji_name), union)
+
 devtools::use_data(
   emoji_name,
   emoji_keyword,

diff --git a/tests/testthat.R b/tests/testthat.R
@@ -0,0 +1,4 @@
+library(testthat)
+library(emo)
+
+test_check("emo")
diff --git a/tests/testthat/test-ji_find.R b/tests/testthat/test-ji_find.R
@@ -0,0 +1,6 @@
+context("ji_find")
+
+test_that("can find names", {
+  out <- ji_find("beer")
+  expect_equal(out$emoji, as.character(ji("beer")))
+})