minor: lint

dshemetov · dshemetov · commit 20ebbf56771e · 2025-01-13T18:15:48.000-08:00
diff --git a/R/utils.R b/R/utils.R
@@ -280,10 +280,10 @@ 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 (!is.Date(date)) {
+  if (!lubridate::is.Date(date)) {
     date <- as.Date(date)
   }
-  MMWRweek::MMWRweek2Date(epiyear(date), epiweek(date)) + 6
+  MMWRweek::MMWRweek2Date(lubridate::epiyear(date), lubridate::epiweek(date)) + 6
 }
 
 update_site <- function() {

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