Update R/utils.R

dshemetov · dsweber2 · web-flow · commit cc3b83c0cd82 · 2025-01-15T13:14:27.000-08:00
Co-authored-by: David Weber &lt;david.weber2@pm.me&gt;
diff --git a/R/utils.R b/R/utils.R
@@ -281,9 +281,7 @@ write_submission_file <- function(pred, forecast_reference_date, submission_dire
 #' Utility to get the reference date for a given date. This is the last day of
 #' the epiweek that the date falls in.
 get_forecast_reference_date <- function(date) {
-  if (!lubridate::is.Date(date)) {
     date <- as.Date(date)
-  }
   MMWRweek::MMWRweek2Date(lubridate::epiyear(date), lubridate::epiweek(date)) + 6
 }
 

Original file line number	Diff line number	Diff line change
`@@ -281,9 +281,7 @@ write_submission_file <- function(pred, forecast_reference_date, submission_dire`
`281`	`281`	`#' Utility to get the reference date for a given date. This is the last day of`
`282`	`282`	`#' the epiweek that the date falls in.`
`283`	`283`	`get_forecast_reference_date <- function(date) {`
`284`		`- if (!lubridate::is.Date(date)) {`
`285`	`284`	`date <- as.Date(date)`
`286`		`- }`
`287`	`285`	`MMWRweek::MMWRweek2Date(lubridate::epiyear(date), lubridate::epiweek(date)) + 6`
`288`	`286`	`}`
`289`	`287`