Style code

Author: OluwatobiOni

R/process_extract_delayed_discharges.R

@@ -13,12 +13,12 @@
 #' @export
 #' @family process extracts
 process_extract_delayed_discharges <- function(
-    data,
-    year,
-    write_to_disk = TRUE,
-    BYOC_MODE = FALSE,
-    run_id = NA,
-    run_date_time = NA
+  data,
+  year,
+  write_to_disk = TRUE,
+  BYOC_MODE = FALSE,
+  run_id = NA,
+  run_date_time = NA
 ) {
   log_slf_event(stage = "process", status = "start", type = "dd", year = year)
 

R/read_extract_delayed_discharges.R

@@ -6,10 +6,10 @@
 #' @export
 #'
 read_extract_delayed_discharges <- function(
-    denodo_connect = get_denodo_connection(BYOC_MODE = BYOC_MODE),
-    file_path = get_dd_path(BYOC_MODE = BYOC_MODE),
-    BYOC_MODE) {
-
+  denodo_connect = get_denodo_connection(BYOC_MODE = BYOC_MODE),
+  file_path = get_dd_path(BYOC_MODE = BYOC_MODE),
+  BYOC_MODE
+) {
   log_slf_event(stage = "read", status = "start", type = "dd", year = NA) # TO-DO: confirm if year is used in DD
 
   on.exit(try(DBI::dbDisconnect(denodo_connect), silent = TRUE), add = TRUE)