remove check

ciaramccarthy1 · ciaramccarthy1 · commit 73be9c4f840d · 2025-10-15T17:23:14.000+01:00
diff --git a/R/get_ww_data.R b/R/get_ww_data.R
@@ -68,7 +68,7 @@ get_ww_as_of_forecast_date <- function(forecast_date,
     )
     RKI_ww_sites <- read_tsv(ww_vintage_data_url)
     dir_create(file.path(filepath_name, forecast_date))
-    check <- write_csv(RKI_ww_sites, vintage_fp)
+    write_csv(RKI_ww_sites, vintage_fp)
   }
 
   # Clean the and filter to the calibration period, add the forecast date

Original file line number	Diff line number	Diff line change
`@@ -68,7 +68,7 @@ get_ww_as_of_forecast_date <- function(forecast_date,`
`68`	`68`	`)`
`69`	`69`	`RKI_ww_sites <- read_tsv(ww_vintage_data_url)`
`70`	`70`	`dir_create(file.path(filepath_name, forecast_date))`
`71`		`- check <- write_csv(RKI_ww_sites, vintage_fp)`
	`71`	`+ write_csv(RKI_ww_sites, vintage_fp)`
`72`	`72`	`}`
`73`	`73`
`74`	`74`	`# Clean the and filter to the calibration period, add the forecast date`