Merge pull request #20 from Sage-Bionetworks/main

Assign startdate values for device summaries
Sage-Bionetworks · Mar 20, 2024 · fa2b3b1 · fa2b3b1
2 parents a4cb98e + 83e8a3e
commit fa2b3b1
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/scripts/write-output/final-output-concepts.R b/scripts/write-output/final-output-concepts.R
@@ -44,7 +44,10 @@ valid_participants <-
 
 combined_output_concepts <- 
   combined_output_concepts %>% 
-  filter(participantidentifier %in% valid_participants)
+  filter(participantidentifier %in% valid_participants) %>% 
+  group_by(participantidentifier) %>% 
+  mutate(startdate = ifelse(concept=="mhp:device", min(startdate[concept != "mhp:device"], na.rm = TRUE), startdate)) %>%
+  ungroup()
 
 combined_output_concepts %>% 
   write.csv(file.path(outputConceptsDir, "output_concepts.csv"), row.names = F)