code: Change tab names to more meaningful ones.

CDU-data-science-team · Aug 27, 2021 · 392fe8b · 392fe8b
1 parent 73ace76
commit 392fe8b
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/R/app_ui.R b/R/app_ui.R
@@ -34,7 +34,7 @@ app_ui <- function(request) {
           ),
 
           menuItem(
-            "TF-IDF & Bigrams", 
+            "Words analysis", 
             tabName = "tab_tfidf", 
             icon = icon("dashboard")
           )
@@ -151,17 +151,17 @@ app_ui <- function(request) {
               #title = "tabs",
 
               tabPanel(
-                "Sentiment - label", 
+                "Sentiment summaries - theme-level", 
                 mod_sentiment_analysis_tag_level_ui("sentiment_analysis_tag_level_ui_1")
               ),
 
               tabPanel(
-                "Sentiment - text",
+                "Sentiment breakdown - text-level",
                 mod_sentiment_analysis_nrc_sentiment_breakdown_ui("sentiment_analysis_nrc_sentiment_breakdown_ui_1")
               ),
 
               tabPanel(
-                "Polarity - text",
+                "Polarity - text-level",
                 mod_sentiment_analysis_textblob_polarity_ui("sentiment_analysis_textblob_polarity_ui_1")
               )
             )

diff --git a/R/mod_sentiment_analysis_tag_level.R b/R/mod_sentiment_analysis_tag_level.R
@@ -72,7 +72,7 @@ mod_sentiment_analysis_tag_level_server <- function(id, x, target, text_col) {
 
       net_sentiment_all_dicts %>% 
         plotNetSentiment(target_col_name = target, 
-                         title = "Net sentiment per tag")
+                         title = "Net sentiment per theme")
     })
 
     ####################
@@ -164,7 +164,7 @@ mod_sentiment_analysis_tag_level_server <- function(id, x, target, text_col) {
         ggplot2::ggsave(file, 
                         plot = plotNetSentiment(net_sentiment_all_dicts, 
                                                 target_col_name = target, 
-                                                title = "Net sentiment per tag"), 
+                                                title = "Net sentiment per theme"), 
                         device = pdf, height = 10, units = "in")
       }
     )