Commit 9cc35e75 authored by Jason Rigby's avatar Jason Rigby
Browse files

Update data_access.R

parent 9a812bc3
......@@ -444,7 +444,6 @@ CombinedPathologyUS <- function(con, measures = NULL) {
submitted,
visitTime
FROM xt_PathologyUS"))
con %>% GetDataBySubjectID(tables_and_fields = list("tblPathology" = data)) %>% tidyr::drop_na("visitTime")
data <- con %>% GetDataBySubjectID(tables_and_fields = list("tblPathology" = data)) %>% tidyr::drop_na("visitTime")
if (!is.null(measures)) {
data <- data %>% select(c("SubjectID", "visitTime", "visitName", "visitDate", "AV", "year", measures))
......@@ -523,7 +522,6 @@ select submitted
DBP_Mean = mean(c(DBP1, DBP2, DBP3), na.rm = TRUE),
HR_Mean = mean(c(HR1, HR2, HR3), na.rm = TRUE),
)
con %>% GetDataBySubjectID(tables_and_fields = list("phys" = data)) %>% tidyr::drop_na("visitTime")
data <- con %>% GetDataBySubjectID(tables_and_fields = list("tblPathology" = data)) %>% tidyr::drop_na("visitTime")
if (!is.null(measures)) {
data <- data %>% select(c("SubjectID", "visitTime", "visitName", "visitDate", "AV", "year", measures))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment