From f10ee3fcd769cb04b57f20abb36f19278f8530b2 Mon Sep 17 00:00:00 2001
From: Kyle Belanger <kyleb44@hotmail.com>
Date: Fri, 6 Jan 2023 07:40:03 -0500
Subject: [PATCH] Update 0-data_prep.R

---
 ML/0-data_prep.R | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/ML/0-data_prep.R b/ML/0-data_prep.R
index faac273..471395d 100644
--- a/ML/0-data_prep.R
+++ b/ML/0-data_prep.R
@@ -10,6 +10,8 @@ box::use(
   ,DBI[dbConnect,dbDisconnect]
   ,here[here]
   ,dplyr
+  ,dbplyr
+  ,tidyr
 )
 
 # globals -----------------------------------------------------------------
@@ -43,8 +45,18 @@ test_list <- c(
 
 # load data ---------------------------------------------------------------
 
-ds <- dplyr$tbl(db, "labevents") %>% dplyr$filter(itemid %in% test_list) %>% dplyr$collect()
+ds <- dplyr$tbl(db, "labevents") %>%
+  dplyr$filter(itemid %in% test_list) %>%
+  dplyr$select(-charttime,-storetime) %>%
+  tidyr$pivot_wider(
+    id_cols = c(subject_id,specimen_id)
+    ,names_from = itemid
+    ,values_from = valuenum
+    ) %>%
+  dplyr$filter(!is.na(`50993`)) %>%
+  dplyr$collect()
 
+ds <- ds %>% dplyr$collect()
 
 # close database ----------------------------------------------------------