Update app server and UI with descriptions

Author: matt-dray

R/app_server.R

@@ -9,11 +9,14 @@ app_server <- function(input, output, session) {
     app_sys("app", "data", "datasets.json"),
     simplify_vector = TRUE
   )
-
   strategies_lookup <- jsonlite::read_json(
     app_sys("app", "data", "mitigators.json"),
     simplify_vector = TRUE
   )
+  descriptions_lookup <- jsonlite::read_json(
+    "inst/app/data/descriptions.json",
+    simplifyVector = TRUE
+  )
 
   selected_provider <- mod_select_provider_server(
     "mod_select_provider",
@@ -24,6 +27,11 @@ app_server <- function(input, output, session) {
     strategies_lookup
   )
 
+  mod_show_description_server(
+    "mod_show_description",
+    descriptions_lookup,
+    selected_strategy
+  )
   mod_plot_trend_server(
     "mod_plot_trend",
     rates_data,

R/app_ui.R

@@ -20,10 +20,16 @@ app_ui <- function(request) {
       The information presented here should not be relied on as fact."
     ),
 
-    bslib::card(
-      bslib::card_header("Trend in rates"),
-      bslib::card_body(mod_plot_trend_ui("mod_plot_trend")),
-      full_screen = TRUE
+    bslib::layout_columns(
+      bslib::card(
+        bslib::card_header("Description"),
+        bslib::card_body(mod_show_description_ui("mod_show_description"))
+      ),
+      bslib::card(
+        bslib::card_header("Trend in rates"),
+        bslib::card_body(mod_plot_trend_ui("mod_plot_trend")),
+        full_screen = TRUE
+      )
     )
   )
 }