dataLoader.R

library(readr)
library(dplyr)

allSurvivalData <- NULL

dataPath <- "../Data/Survival_Data" # You might need to change this data path so it points to the right directory if it isn't set up correctly.

indexEvents <- list.dirs(dataPath, recursive = FALSE)

for(indexEvent in indexEvents){
  outcomeEvents <- list.dirs(indexEvent, recursive = FALSE)
  for(outcomeEvent in outcomeEvents){
    print(outcomeEvent)
    survData <- readRDS(paste0(outcomeEvent, "/survivalData.rds"))
    
    allSurvivalData <- allSurvivalData %>%
      bind_rows(survData)
  }
}