Commit 4f2b5f63 authored by Ashley Stewart's avatar Ashley Stewart 💃
Browse files

Update endpoint function to read in v3 .csv instead of version 2 .dta

parent 8b05921d
......@@ -157,7 +157,7 @@ GetEndpoints <- function(con, sectionPaths = SDrivePaths()) {
Endpoint <- Endpoint[which(!is.na(Endpoint$EventType)), ]
# Add column to indicate if event was in F2
F2 <- read_dta(sectionPaths$SectionF2_DMC)
F2 <- read.csv(sectionPaths$SectionF2_DMC)
F2 <- F2[, c("SubjectID", "CodeID")]
F2$ASP_Endpoint <- 1
Endpoint <- merge(F2, Endpoint, by = c("CodeID", "SubjectID"), all = TRUE)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment