Fix no visible binding for convert_monthly_rows_to_vars

Author: LucyEmma22

R/convert_monthly_rows_to_vars.R

@@ -17,21 +17,21 @@ convert_monthly_rows_to_vars <- function(data,
   month_order <- tolower(month.abb[c(4L:12L, 1L:3L)])
 
   data %>%
-    dplyr::mutate(month_name = month_order[{{ month_num_var }}]) %>%
-    dplyr::select(-{{ month_num_var }}) %>%
+    dplyr::mutate(month_name = month_order[.data[[month_num_var]]]) %>%
+    dplyr::select(-all_of(month_num_var)) %>%
     dplyr::rename(
-      cost = {{ cost_var }},
-      beddays = {{ beddays_var }}
-    ) %>%
+      cost = all_of(cost_var),
+      beddays = all_of(beddays_var)
+      ) %>%
     tidyr::pivot_wider(
       names_from = "month_name",
       names_glue = "{month_name}_{.value}",
       values_from = c("cost", "beddays"),
       values_fill = 0.00
-    ) %>%
+      ) %>%
     dplyr::select(
       !dplyr::ends_with(c("_beddays", "_cost")),
       dplyr::any_of(paste0(month_order, "_beddays")),
       dplyr::any_of(paste0(month_order, "_cost"))
-    )
+      )
 }

R/process_extract_acute.R

@@ -61,7 +61,7 @@ process_extract_acute <- function(data,
     # Apply new costs for C3 specialty, these are taken from the 2017/18 file
     fix_c3_costs(year) %>%
     # initialise monthly cost/beddays variables in a separate data frame for matching
-    convert_monthly_rows_to_vars(costmonthnum, cost_total_net, yearstay) %>%
+    convert_monthly_rows_to_vars("costmonthnum", "cost_total_net", "yearstay") %>%
     # add yearstay and cost_total_net variables
     dplyr::mutate(
       yearstay = rowSums(dplyr::pick(tidyselect::ends_with("_beddays"))),

R/process_extract_mental_health.R

@@ -50,9 +50,9 @@ process_extract_mental_health <- function(data, year, write_to_disk = TRUE) {
     ) %>%
     # monthly beddays and costs
     convert_monthly_rows_to_vars(
-      costmonthnum,
-      cost_total_net,
-      yearstay
+      "costmonthnum",
+      "cost_total_net",
+      "yearstay"
     ) %>%
     dplyr::mutate(
       # yearstay