updated functions

Author: Youzhi Yu

R/emoji-categorize.R

@@ -35,11 +35,11 @@ emoji_category_add <- function(emoji_unicodes, emoji_category, tweet_tbl, tweet_
 
 emoji_categorize <- function(tweet_tbl, tweet_text) {
 
-  emoji_long <- purrr::map2_dfr(tidyEmoji::category_unicode_crosswalk$unicodes,
-                  tidyEmoji::category_unicode_crosswalk$category,
-                  emoji_category_add,
-                  tweet_tbl,
-                  {{ tweet_text }})
+  emoji_long <- purrr::map2_dfr(category_unicode_crosswalk$unicodes,
+                                category_unicode_crosswalk$category,
+                                emoji_category_add,
+                                tweet_tbl,
+                                {{ tweet_text }})
 
   emoji_category_vector <- unique(emoji_long$.emoji_category)
 

R/emoji-extraction.R

@@ -26,7 +26,7 @@
 
 emoji_extract_unnest <- function(tweet_tbl, tweet_text){
   tweet_tbl %>%
-    tidyEmoji::emoji_extract_nest({{ tweet_text }}) %>%
+    emoji_extract_nest({{ tweet_text }}) %>%
     dplyr::select({{ tweet_text }}, .emoji_unicode) %>%
     dplyr::mutate(row_number = dplyr::row_number()) %>%
     tidyr::unnest(.emoji_unicode) %>%

R/tidyEmoji.R

@@ -7,12 +7,14 @@
 #' @import utils
 NULL
 
-## quiets concerns of R CMD check re: the .'s that appear in pipelines
+
 if(getRversion() >= "2.15.1")  utils::globalVariables(c(".",
                                                         "name",
                                                         "emoji_name",
                                                         "unicode",
                                                         "emoji_category",
+                                                        "emoji_unicode_crosswalk",
+                                                        "category_unicode_crosswalk",
                                                         ".emoji_category",
                                                         ".emoji_unicode",
                                                         ".emoji_unicode"))

R/top-n-emojis.R

@@ -32,16 +32,16 @@
 
 top_n_emojis <- function(tweet_tbl, tweet_text, n = 20, duplicated_unicode = "no"){
 
-  emoji_tbl <- tidyEmoji::emoji_tweets(tweet_tbl, {{ tweet_text }})
+  emoji_tbl <- emoji_tweets(tweet_tbl, {{ tweet_text }})
 
-  emoji_count_list <- purrr::map(tidyEmoji::emoji_unicode_crosswalk$unicode,
+  emoji_count_list <- purrr::map(emoji_unicode_crosswalk$unicode,
                                  .f = count_each_emoji,
                                  emoji_tbl,
                                  {{ tweet_text }})
 
-  tbl <- tibble::tibble(unicode = tidyEmoji::emoji_unicode_crosswalk$unicode,
+  tbl <- tibble::tibble(unicode = emoji_unicode_crosswalk$unicode,
                         emoji_count = unlist(emoji_count_list)) %>%
-    dplyr::inner_join(tidyEmoji::emoji_unicode_crosswalk, by = "unicode") %>%
+    dplyr::inner_join(emoji_unicode_crosswalk, by = "unicode") %>%
     dplyr::distinct() %>%
     dplyr::count(emoji_name, unicode, emoji_category, wt = emoji_count, sort = T)