Merge branch 'endpoint_update' into 'master'

Endpoint update

See merge request aspree/aspree-r-package!39

R/endpoints.R

@@ -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)