💨 Format

Author: StatsRhian

R/fct_azure_storage.R

@@ -3,7 +3,6 @@
 #' Read the parquet file for inequalities
 #' @return A tibble.
 load_inequalities_data <- function() {
-
   fs <- get_adls_fs()
   fs |>
     AzureStor::download_adls_file(

R/mod_inequalities_ui.R

@@ -13,29 +13,29 @@ mod_inequalities_ui <- function(id) {
     shiny::tags$h1("Inequalities"),
     shiny::fluidRow(
       col_4(
-      bs4Dash::box(
-        collapsible = FALSE,
-        headerBorder = FALSE,
-        width = 12,
-        md_file_to_html("app", "text", "inequalities.md")
-      ),
-      mod_reasons_ui(ns("reasons"))
+        bs4Dash::box(
+          collapsible = FALSE,
+          headerBorder = FALSE,
+          width = 12,
+          md_file_to_html("app", "text", "inequalities.md")
+        ),
+        mod_reasons_ui(ns("reasons"))
       ),
       col_8(
-      bs4Dash::box(
-        collapsible = FALSE,
-        headerBorder = FALSE,
-        width = 12,
-        div(
-          shiny::downloadButton(
-            ns("download_inequalities"),
-            "Download inequalities"
+        bs4Dash::box(
+          collapsible = FALSE,
+          headerBorder = FALSE,
+          width = 12,
+          div(
+            shiny::downloadButton(
+              ns("download_inequalities"),
+              "Download inequalities"
+            ),
+            actionButton(ns("set_all_zero_sum"), "Set all to zero sum"),
+            actionButton(ns("clear_all"), "Clear all", class = "btn-secondary")
           ),
-          actionButton(ns("set_all_zero_sum"), "Set all to zero sum"),
-          actionButton(ns("clear_all"), "Clear all", class = "btn-secondary")
-        ),
-        DT::dataTableOutput(ns("hrg_table"), height = "calc(100vh - 200px)")
-      )
+          DT::dataTableOutput(ns("hrg_table"), height = "calc(100vh - 200px)")
+        )
       )
     )
   )