fixed incorrect emoji download link

Author: JuKo007

DESCRIPTION

@@ -15,7 +15,7 @@ License: GPL-3
 Imports: stringi, qdapRegex, readr, tokenizers, data.table, ggplot2, anytime, mgsub, stats, qdap, ggwordcloud, dplyr, ragg, checkmate, visNetwork, lubridate, methods, leaflet
 Encoding: UTF-8
 LazyData: true
-RoxygenNote: 7.3.2
+RoxygenNote: 7.3.3
 Suggests: extrafont, tm,
     testthat (>= 3.0.0)
 Config/testthat/edition: 3

R/download_emoji.R

@@ -21,7 +21,7 @@
 
 
 # Function to scrape an emoji dictionary from https://www.unicode.org/
-download_emoji <- function(unicode_page = "https://www.unicode.org/Public/draft/emoji/emoji-test.txt",
+download_emoji <- function(unicode_page = "https://www.unicode.org/Public/emoji/latest/emoji-test.txt",
                            delete_header = 32,
                            nlines = -1L) {
 

R/plot_emoji.R

@@ -345,7 +345,7 @@ plot_emoji <- function(data,
       theme(axis.text.x = element_text(angle = 90, hjust = 0.95, vjust = 0.2), legend.position = "none") +
       geom_label(aes(label = Glyph),
                  family = font_family,
-                 label.size = NA,
+                 linewidth = NA,
                  fill = alpha(c("white"),0),
                  size = emoji_size)
 
@@ -395,7 +395,7 @@ plot_emoji <- function(data,
       theme(legend.title = element_text("Emoji")) +
       geom_label(aes(label = Glyph, fill = Emoji),
                  family = font_family,
-                 label.size = NA,
+                 linewidth = NA,
                  fill = alpha(c("white"),0),
                  size = emoji_size,
                  position = position_dodge2(width = 0.9, preserve = "single"))

man/download_emoji.Rd

@@ -8,7 +8,7 @@ test_that("Updating emoji dictionary",{
   emoji_dictionary <- tryCatch(
     {
 
-      # downloading emoji dictionary
+     # downloading emoji dictionary
       emoji_dictionary <- download_emoji(nlines = 50)
 
     },