Merge pull request #1411 from cmu-delphi/fix-smoothed-recent-raw

krivard · web-flow · commit 1e3ebd662c74 · 2021-12-09T21:15:03.000-05:00
[CTIS] Fix `latest_weight_date` regex input so date isn't missing
diff --git a/facebook/delphiFacebook/R/weights.R b/facebook/delphiFacebook/R/weights.R
@@ -65,7 +65,7 @@ join_weights <- function(data, params, weights = c("step1", "full"))
 
   latest_weight <- tail(weights_files, n = 1)
   latest_weight_date <- as.Date(
-    stri_extract_first(latest_weight, regex = "^[0-9]{4}-[0-9]{2}-[0-9]{2}")
+    stri_extract_first(basename(latest_weight), regex = "^[0-9]{4}-[0-9]{2}-[0-9]{2}")
   )
   
   col_types <- c("character", "double")

Original file line number	Diff line number	Diff line change
`@@ -65,7 +65,7 @@ join_weights <- function(data, params, weights = c("step1", "full"))`
`65`	`65`
`66`	`66`	`latest_weight <- tail(weights_files, n = 1)`
`67`	`67`	`latest_weight_date <- as.Date(`
`68`		`- stri_extract_first(latest_weight, regex = "^[0-9]{4}-[0-9]{2}-[0-9]{2}")`
	`68`	`+ stri_extract_first(basename(latest_weight), regex = "^[0-9]{4}-[0-9]{2}-[0-9]{2}")`
`69`	`69`	`)`
`70`	`70`
`71`	`71`	`col_types <- c("character", "double")`