fixed nasty csv import problem

reports/prepare_data.Rmd

@@ -49,7 +49,8 @@ df_deaths <- df_baseline %>%
       ) %>% as.numeric
   ) %>% 
   filter(complete.cases(.))
-
+```
+```{r}
 df_baseline <- df_baseline %>% 
   select(-Subject.DeathDate) %>% 
   mutate(

scripts/import_neurobot_data.R

@@ -10,7 +10,7 @@ in_files <- sprintf("%s/%s", in_folder, list.files(path = in_folder, pattern = "
 if (length(in_files) != 5) stop("must have exactly 5 input files")
 
 for (f in in_files) {
-  tmp <- read.csv(f)
+  tmp <- read_csv(f)
   if ("Subject.Age" %in% names(tmp))
     saveRDS(as_tibble(tmp), file = sprintf("%s/df_baseline.rds", out_folder))
   if ("Outcomes.DerivedCompositeGOSE" %in% names(tmp))