use purrr::reduce instead of base::Reduce

Author: nmdefries

backfill_corrections/delphiBackfillCorrection/NAMESPACE

@@ -50,6 +50,7 @@ importFrom(lubridate,month)
 importFrom(lubridate,year)
 importFrom(parallel,detectCores)
 importFrom(purrr,map_dfc)
+importFrom(purrr,reduce)
 importFrom(quantgen,quantile_lasso)
 importFrom(readr,write_csv)
 importFrom(stats,coef)

backfill_corrections/delphiBackfillCorrection/R/preprocessing.R

@@ -188,6 +188,7 @@ add_weekofmonth <- function(df, time_col, wm = WEEK_ISSUES) {
 #' @template ref_lag-template
 #' 
 #' @importFrom dplyr full_join left_join
+#' @importFrom purrr reduce
 #' @importFrom tidyr pivot_wider drop_na
 #' 
 #' @export
@@ -205,10 +206,10 @@ add_7davs_and_target <- function(df, value_col, refd_col, lag_col, ref_lag) {
   avg_df_prev7 <- add_shift(avg_df, 7, refd_col)
   names(avg_df_prev7)[names(avg_df_prev7) == 'value_7dav'] <- 'value_prev_7dav'
 
-  backfill_df <- Reduce(
-        function(x, y) full_join(x, y, by=c("time_value", "issue_date")),
-        list(df, avg_df, avg_df_prev7)
-      )
+  backfill_df <- reduce(
+    list(df, avg_df, avg_df_prev7),
+    full_join, by=c(refd_col, "issue_date")
+  )
 
   # Add target
   target_df <- df[df$lag==ref_lag, c(refd_col, value_col, "issue_date")]