Tweak wording in sidebars

Author: matt-dray

R/app_ui.R

@@ -52,7 +52,7 @@ app_ui <- function(request) {
         href = Sys.getenv("FEEDBACK_FORM_URL"),
         target = "_blank",
         class = "nav-link",
-        shiny::icon("comment-dots"),
+        bsicons::bs_icon("chat-dots"),
         "Give feedback"
       )
     ),
@@ -63,8 +63,8 @@ app_ui <- function(request) {
         open = FALSE,
         multiple = TRUE,
         bslib::accordion_panel(
-          title = "Statistical units",
-          icon = bsicons::bs_icon("pin-map"),
+          title = "Datasets",
+          icon = bsicons::bs_icon("table"),
           mod_select_geography_ui("mod_select_geography"),
           mod_select_provider_ui("mod_select_provider"),
         ),

R/mod_select_geography.R

@@ -5,7 +5,7 @@ mod_select_geography_ui <- function(id) {
   ns <- shiny::NS(id)
   shiny::selectInput(
     ns("geography_select"),
-    "Choose a geographic unit:",
+    "Filter by geography:",
     choices = NULL
   )
 }

R/mod_select_strategy.R

@@ -6,7 +6,7 @@ mod_select_strategy_ui <- function(id) {
   shiny::tagList(
     shiny::selectInput(
       ns("strategy_category_select"),
-      "Choose an activity type:",
+      "Filter by activity type:",
       choices = c(
         "Inpatients" = "ip",
         "Outpatients" = "op",