look for "measure.verified" or "measure_verified"

ValentineHerr · ValentineHerr · commit 8d5ea26d63a2 · 2026-03-17T15:23:44.000-04:00
diff --git a/Rscripts/Generate_reports.R b/Rscripts/Generate_reports.R
@@ -365,7 +365,7 @@ if(nrow(stems_to_alert) > 0) {
     stems_to_alert$verified[i] <- anomaly_raw_data_file %>% 
       read_csv(show_col_types = FALSE) %>% 
       filter(tag == anomaly_tag & stemtag == anomaly_stemtag) %>% 
-      pull(measure_verified) 
+      pull(intersect(c("measure.verified", "measure_verified"), names(.))) 
   }
   
   # Remove if measurement has been verified

Original file line number	Diff line number	Diff line change
`@@ -365,7 +365,7 @@ if(nrow(stems_to_alert) > 0) {`
`365`	`365`	`stems_to_alert$verified[i] <- anomaly_raw_data_file %>%`
`366`	`366`	`read_csv(show_col_types = FALSE) %>%`
`367`	`367`	`filter(tag == anomaly_tag & stemtag == anomaly_stemtag) %>%`
`368`		`- pull(measure_verified)`
	`368`	`+ pull(intersect(c("measure.verified", "measure_verified"), names(.)))`
`369`	`369`	`}`
`370`	`370`
`371`	`371`	`# Remove if measurement has been verified`