From 504ebe099b70a25aecf8666eb8255044c23780ba Mon Sep 17 00:00:00 2001
From: Iegor Rudnytskyi <yegor.rudnytskiy@gmail.com>
Date: Sun, 14 Nov 2021 23:53:10 +0100
Subject: [PATCH] Remove dependence of emo, remove replacing asterisk by
 emoji's star; remove patchlevel from R dependence

---
 DESCRIPTION        |  6 ++----
 R/run_app.R        |  2 +-
 inst/app/helpers.R | 10 ++--------
 3 files changed, 5 insertions(+), 13 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 2f29015..538a0fd 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -32,7 +32,7 @@ LazyData: TRUE
 URL: https://github.com/irudnyts/estudy2, https://irudnyts.github.io/estudy2/
 BugReports: https://github.com/irudnyts/estudy2/issues
 Depends:
-    R (>= 4.1.1)
+    R (>= 4.1)
 Imports:
     quantmod (>= 0.4.18),
     zoo (>= 1.8.9),
@@ -53,8 +53,6 @@ Suggests:
     stringr (>= 1.4.0),
     magrittr (>= 2.0.1),
     formattable (>= 0.2.1),
-    dplyr (>= 1.0.7),
-    emo
-Remotes: github::hadley/emo
+    dplyr (>= 1.0.7)
 VignetteBuilder: knitr
 Encoding: UTF-8
diff --git a/R/run_app.R b/R/run_app.R
index 31c1239..0aeb44e 100644
--- a/R/run_app.R
+++ b/R/run_app.R
@@ -13,7 +13,7 @@ run_app <- function() {
 
     packages <- c(
         "curl", "shiny", "shinyFeedback", "shinyWidgets", "DT", "bslib",
-        "stringr", "magrittr", "formattable", "dplyr", "emo"
+        "stringr", "magrittr", "formattable", "dplyr"
     )
 
     purrr::walk(packages, check_installation)
diff --git a/inst/app/helpers.R b/inst/app/helpers.R
index 98b1738..9992b5d 100644
--- a/inst/app/helpers.R
+++ b/inst/app/helpers.R
@@ -87,8 +87,8 @@ sign_formatter <- formattable::formatter(
 #' Beautify the result of \code{parametric_tests()} and
 #' \code{nonparametric_tests()}
 #'
-#' The function beautifies the column names, formats percent columns, rounds
-#' to the second digit, and replaces asterisks by emojis' stars.
+#' The function beautifies the column names, formats percent columns, and rounds
+#' to the second digit.
 beautify <- function(tests_table) {
 
     # beautify column names
@@ -112,12 +112,6 @@ beautify <- function(tests_table) {
                 2
             )
         ) %>%
-        dplyr::mutate(
-            dplyr::across(
-                dplyr::contains("Signif"),
-                stringr::str_replace_all, stringr::fixed("*"), emo::ji("star")
-            )
-        ) %>%
         dplyr::mutate(
             Percent = formattable::percent(Percent / 100, digits = 0),
             Date = format(Date, "%b %d")