From 09cf71e7d258796082a93d9cc1a9b7f07fde1696 Mon Sep 17 00:00:00 2001
From: Richard Iannone <riannone@me.com>
Date: Sun, 11 Aug 2024 22:37:27 -0700
Subject: [PATCH] Replace '$' char w/ HTML entity

---
 R/get_agent_report.R | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

diff --git a/R/get_agent_report.R b/R/get_agent_report.R
index 4ce254d7f..66b0422b5 100644
--- a/R/get_agent_report.R
+++ b/R/get_agent_report.R
@@ -1187,15 +1187,18 @@ get_agent_report <- function(
           NA_character_
           
         } else {
-          
+
           text <-
-            values_i %>%
-            tidy_gsub(
-              "~",
-              "<span style=\"color: purple;\">&marker;</span>"
-            ) %>%
-            unname()
-          
+            unname(
+              tidy_gsub(
+                values_i,
+                "~",
+                "<span style=\"color: purple;\">&marker;</span>"
+              )
+            )
+            
+          text <- gsub("$", "&dollar;", values_i, fixed = TRUE)
+
           text <- paste(text, collapse = ", ")
           
           if (size == "small") {