✨ Add features module to inequalities

Author: StatsRhian

R/mod_inequalities_server.R

@@ -5,6 +5,8 @@ mod_inequalities_server <- function(id, params) {
   shiny::moduleServer(id, function(input, output, session) {
     ns <- session$ns
 
+    mod_reasons_server(shiny::NS(id, "reasons"), params, "inequalities")
+
     inequalities_data <- shiny::reactive({
       dataset <- shiny::req(params$dataset) # nolint: object_usage_linter
 

R/mod_inequalities_ui.R

@@ -12,16 +12,20 @@ mod_inequalities_ui <- function(id) {
   shiny::tagList(
     shiny::tags$h1("Inequalities"),
     shiny::fluidRow(
+      col_4(
       bs4Dash::box(
         collapsible = FALSE,
         headerBorder = FALSE,
-        width = 4,
+        width = 12,
         md_file_to_html("app", "text", "inequalities.md")
       ),
+      mod_reasons_ui(ns("reasons"))
+      ),
+      col_8(
       bs4Dash::box(
         collapsible = FALSE,
         headerBorder = FALSE,
-        width = 8,
+        width = 12,
         div(
           shiny::downloadButton(
             ns("download_inequalities"),
@@ -32,6 +36,7 @@ mod_inequalities_ui <- function(id) {
         ),
         DT::dataTableOutput(ns("hrg_table"), height = "calc(100vh - 200px)")
       )
+      )
     )
   )
 }