initial commit

Author: Youzhi Yu

.Rbuildignore

@@ -0,0 +1,3 @@
+^.*\.Rproj$
+^\.Rproj\.user$
+^LICENSE\.md$

.gitignore

@@ -0,0 +1,5 @@
+.Rproj.user
+.Rhistory
+.RData
+.Ruserdata
+inst/doc

DESCRIPTION

@@ -0,0 +1,20 @@
+Package: tidyEmoji
+Type: Package
+Title: Detects Emoji on Text
+Version: 0.1.0
+Author: Youzhi Yu
+Maintainer: Youzhi Yu <[email protected]>
+Description: Unicodes are not friendly to work with, and not all Unicodes are
+    Emoji per se, making obtaining Emoji statistics a not-so-easy task. This
+    tool can help your experience of working with Emoji as smooth as possible.
+License: GPL (>= 3)
+Encoding: UTF-8
+LazyData: true
+RoxygenNote: 7.1.2
+Imports: 
+    dplyr,
+    emoji,
+    purrr,
+    rlang,
+    stringr,
+    tibble

LICENSE.md

@@ -0,0 +1,10 @@
+# Generated by roxygen2: do not edit by hand
+
+export(emoji_summary)
+import(dplyr)
+import(emoji)
+import(rlang)
+import(stringr)
+import(tibble)
+importFrom(dplyr,"%>%")
+importFrom(purrr,"%||%")

NAMESPACE

@@ -0,0 +1,34 @@
+#' Emoji Summary Tibble
+#'
+#' @param tweet_tbl A dataframe/tibble containing tweets.
+#' @param tweet_text The column that is the tweet column.
+#'
+#' @return A summary tibble including # of tweets in total and # of tweets that
+#' have at least one Emoji.
+#'
+#' @import dplyr
+#' @import emoji
+#' @import stringr
+#' @import tibble
+#' @import rlang
+#' @export
+#'
+
+
+emoji_summary <- function(tweet_tbl, tweet_text){
+
+  num_tweets <- dim(tweet_tbl)[1]
+
+  num_emoji_tweets <- tweet_tbl %>%
+    dplyr::filter(stringr::str_detect({{ tweet_text }},
+                      emoji::emojis %>%
+                        dplyr::filter(!stringr::str_detect(name, "keycap: \\*")) %>%
+                        dplyr::pull(emoji) %>%
+                        paste(., collapse = "|"))) %>%
+    dim() %>%
+    .[1]
+
+  return(tibble::tibble(emoji_tweets = num_emoji_tweets,
+                        total_tweets = num_tweets))
+
+}

R/emoji-summary.R

@@ -0,0 +1,12 @@
+#' \code{tidyEmoji} package
+#'
+#' A tidy way working with text containing Emoji
+#'
+#' @docType package
+#' @name tidyEmoji
+#' @importFrom dplyr %>%
+#' @importFrom purrr %||%
+NULL
+
+## quiets concerns of R CMD check re: the .'s that appear in pipelines
+if(getRversion() >= "2.15.1")  utils::globalVariables(c(".", "name"))

R/tidyEmoji.R

@@ -0,0 +1,20 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX
+
+AutoAppendNewline: Yes
+StripTrailingWhitespace: Yes
+
+BuildType: Package
+PackageUseDevtools: Yes
+PackageInstallArgs: --no-multiarch --with-keep.source