Prefix all_of with dplyr::

Author: LucyEmma22

R/convert_monthly_rows_to_vars.R

@@ -18,10 +18,10 @@ convert_monthly_rows_to_vars <- function(data,
 
   data %>%
     dplyr::mutate(month_name = month_order[.data[[month_num_var]]]) %>%
-    dplyr::select(-all_of(month_num_var)) %>%
+    dplyr::select(-dplyr::all_of(month_num_var)) %>%
     dplyr::rename(
-      cost = all_of(cost_var),
-      beddays = all_of(beddays_var)
+      cost = dplyr::all_of(cost_var),
+      beddays = dplyr::all_of(beddays_var)
     ) %>%
     tidyr::pivot_wider(
       names_from = "month_name",

R/fill_ch_names.R

@@ -106,7 +106,7 @@ fill_ch_names <- function(ch_data,
       ch_active = any(.data[["ch_active"]])
     ) %>%
     dplyr::ungroup() %>%
-    dplyr::rename(ch_postcode_lookup = all_of("ch_postcode")) %>%
+    dplyr::rename(ch_postcode_lookup = dplyr::all_of("ch_postcode")) %>%
     dplyr::mutate(
       ch_pc_partial = stringr::str_sub(.data[["ch_postcode_lookup"]], 1, -2),
       ch_pc_partial2 = stringr::str_sub(.data[["ch_postcode_lookup"]], 1, -3),

R/process_extract_delayed_discharges.R

@@ -48,8 +48,8 @@ process_extract_delayed_discharges <- function(
 
   dd_clean <- data %>%
     dplyr::rename(
-      record_keydate1 = all_of("rdd"),
-      record_keydate2 = all_of("delay_end_date")
+      record_keydate1 = dplyr::all_of("rdd"),
+      record_keydate2 = dplyr::all_of("delay_end_date")
     ) %>%
     # Use end of the month date for records with no end date
     # (but we think have ended)