lint: minor idiom tweak

dshemetov · dshemetov · commit 2c0768bfc69a · 2025-05-08T18:21:50.000-07:00
diff --git a/R/forecasters/forecaster_scaled_pop_seasonal.R b/R/forecasters/forecaster_scaled_pop_seasonal.R
@@ -63,7 +63,7 @@ scaled_pop_seasonal <- function(
   epi_data <- validate_epi_data(epi_data)
   extra_sources <- unlist(extra_sources)
 
-  if (all(seasonal_method == c("none", "flu", "covid", "indicator", "window", "climatological"))) {
+  if (identical(seasonal_method, c("none", "flu", "covid", "indicator", "window", "climatological"))) {
     seasonal_method <- "none"
   }
   # perform any preprocessing not supported by epipredict

Original file line number	Diff line number	Diff line change
`@@ -63,7 +63,7 @@ scaled_pop_seasonal <- function(`
`63`	`63`	`epi_data <- validate_epi_data(epi_data)`
`64`	`64`	`extra_sources <- unlist(extra_sources)`
`65`	`65`
`66`		`- if (all(seasonal_method == c("none", "flu", "covid", "indicator", "window", "climatological"))) {`
	`66`	`+ if (identical(seasonal_method, c("none", "flu", "covid", "indicator", "window", "climatological"))) {`
`67`	`67`	`seasonal_method <- "none"`
`68`	`68`	`}`
`69`	`69`	`# perform any preprocessing not supported by epipredict`