From 3abba4a9042e167bbfe3a356a2628555e19ea788 Mon Sep 17 00:00:00 2001 From: Kyle Belanger Date: Fri, 6 Jan 2023 15:49:53 -0500 Subject: [PATCH] Update 0-data_prep.R --- ML/0-data_prep.R | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/ML/0-data_prep.R b/ML/0-data_prep.R index 930a110..83183d6 100644 --- a/ML/0-data_prep.R +++ b/ML/0-data_prep.R @@ -101,8 +101,10 @@ ds_cmp <- dplyr$tbl(db, "labevents") %>% #this keeps failing if run as part of the above query. Moving here to keep going # keeps only rows that have values for all columns -ds_cmp <- ds_cmp %>% dplyr$filter(dplyr$if_all(.fns = ~!is.na(.))) %>% - dplyr$left_join(patients, by = c("subject_id" = "subject_id")) +ds_cmp <- patients %>% + dplyr$left_join(ds_cmp, by = c("subject_id" = "subject_id")) %>% + dplyr$filter(dplyr$if_all(.fns = ~!is.na(.))) + ds_bmp <- dplyr$tbl(db, "labevents") %>% @@ -116,7 +118,9 @@ ds_bmp <- dplyr$tbl(db, "labevents") %>% dplyr$filter(!is.na(`50993`) & !is.na(`50995`)) %>% dplyr$collect() -ds_bmp <- ds_bmp %>% dplyr$filter(dplyr$if_all(.fns = ~!is.na(.))) +ds_bmp <- patients %>% + dplyr$left_join(ds_bmp, by = c("subject_id" = "subject_id")) %>% + dplyr$filter(dplyr$if_all(.fns = ~!is.na(.)))