|
|
@ -158,7 +158,7 @@ sqlWriteTemp<-function(conn=dta, nhcs=nhc.test, file="queryOV.xlsx", samples.mod |
|
|
|
## Importar los datos clínicos de pacientes existentes y generar nueva entrada par los nuevos |
|
|
|
upd.clinics<-sqlFetch(conn, "CLINICOS") |
|
|
|
umid.new<-sqlFetch(conn, "UMID") %>% filter(NHC %in% nhcs) |
|
|
|
upd.clinics<-merge(umid.new,upd.clinics %>% select(-Id), all.x=T, by="UMID") |
|
|
|
upd.clinics<-merge(umid.new,upd.clinics, all.x=T, by="UMID") |
|
|
|
upd.clinics$NHC<-as.character(upd.clinics$NHC) |
|
|
|
for (i in colnames(upd.clinics)[sapply(upd.clinics, lubridate::is.POSIXct)]){upd.clinics[,i]<-as.Date(upd.clinics[,i])} |
|
|
|
} |
|
|
|