Commit a7902625 authored by Ashley Stewart's avatar Ashley Stewart 💃
Browse files

Merge branch 'endpoint_update' into 'master'

Endpoint update

See merge request aspree/aspree-r-package!39
parents 8b65f17c 4f2b5f63
......@@ -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