hotfix: clear_lastminute_nas in scaled_pop_seasonal

dshemetov · dshemetov · commit 8c1040cfe9ae · 2025-03-19T11:17:02.000-07:00
diff --git a/R/forecasters/forecaster_scaled_pop_seasonal.R b/R/forecasters/forecaster_scaled_pop_seasonal.R
@@ -70,6 +70,8 @@ scaled_pop_seasonal <- function(epi_data,
   #
   # this is for the case where there are multiple sources in the same column
   epi_data %<>% filter_extraneous(filter_source, filter_agg_level)
+  # this is a temp fix until a real fix gets put into epipredict
+  epi_data <- clear_lastminute_nas(epi_data, outcome, extra_sources)
   # this next part is basically unavoidable boilerplate you'll want to copy
   args_input <- list(...)
   # edge case where there is no data or less data than the lags; eventually epipredict will handle this

Original file line number	Diff line number	Diff line change
`@@ -70,6 +70,8 @@ scaled_pop_seasonal <- function(epi_data,`
`70`	`70`	`#`
`71`	`71`	`# this is for the case where there are multiple sources in the same column`
`72`	`72`	`epi_data %<>% filter_extraneous(filter_source, filter_agg_level)`
	`73`	`+ # this is a temp fix until a real fix gets put into epipredict`
	`74`	`+ epi_data <- clear_lastminute_nas(epi_data, outcome, extra_sources)`
`73`	`75`	`# this next part is basically unavoidable boilerplate you'll want to copy`
`74`	`76`	`args_input <- list(...)`
`75`	`77`	`# edge case where there is no data or less data than the lags; eventually epipredict will handle this`